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Prefácio 


Encontrará neste livro mais de cem programas (essencialmente jo- 
gos) redigidos em Basic AMSTRAD. A maioria destes programas, 
aliás, serão utilizáveis sem grandes modificações noutros computado- 
res que utilizem um Basic Microsoft. 

Os programas propostos são muito curtos, e a ordem pela qual 
são apresentados não é, evidentemente, arbitrária: trata-se de iniciar o 
leitor, através da realização e da utilização de jogos de boa qualidade, 
no conhecimento e no domínio progressivo desse extraordinário utensí- 
lio que é o computador pessoal. 

A brevidade dos programas propostos permitirá teclá-los facil- 
mente, sem risco de erro. Poderá, evidentemente, utilizá-los como base 
para a realização de jogos mais elaborados. 

Os jogos são abundantemente comentados para o ajudar a com- 
preender o seu funcionamento, e as páginas de apresentação permitir- 
-lhe-ão encontrar facilmente as características próprias das instruções 
Basic que eles utilizam. 

O nível 5 dá uma ideia quanto à utilização de certas técnicas um 
tanto específicas. Estas técnicas poderão ser retomadas com proveito 
para melhorar os programas precedentes. 

Encontrará, no fim de cada texto de apresentação, algumas suges- 
tões para possíveis melhoramentos, ou modificações, que poderão tor- 
nar mais atractivo, de mais alta qualidade ou mais completo o jogo 
proposto. 


Organização da obra 


Os jogos são classificados por ordem de dificuldade crescente, de 
acordo com cinco níveis: 


e O nível 1 permite o estudo das instruções elementares da 
linguagem Basic: LET (aqui opcional), PRINT, INPUT, 
IF... THEN, FOR... NEXT, GOTO, GOSUB, ON...GO- 
TO, ON...GOSUB, WHILE... WEND. 


No nível 2 utilizaremos as instruções de confecção e de ma- 
nipulação dos elementos de um quadro e de busca de um 
elemento numa cadeia: DIM, R(I), MID$, READ, DATA. 


No nível 3 utilizaremos a panóplia completa das instruções 
de tratamento das cadeias de caracteres: MIDS$, RIGHTS, 
LEFTS. 


e O nível 4 apela para uma instrução muito particular, que 
facilita a realização de jogos interactivos: INKEYS, e faz- 
-nos descobrir a interacção do modo texto e do modo grá- 
fico com TAG. 


Finalmente, o nível 5 faz-nos descobrir instruções mais es- 
pecíficas: interrupções, leitura do écran, geração de carac- 
teres. 


Cada jogo é apresentado de modo muito sistemático, por uma 
curta descrição, seguida do estudo pormenorizado de cada uma das li- 
nhas importantes do programa. Após isto são fornecidas as indicações 
necessárias ao bom funcionamento do jogo, assim como alguns ele- 
mentos que possam conduzir a extensões ou melhoramentos do jogo 
proposto. 

O programa, escrito em Basic AMSTRAD, é seguidamente repro- 
duzido. As listagens foram obtidas directamente dos originais do au- 
tor, numa impressora matricial, o que deverá garantir contra qualquer 
risco de mau funcionamento. (A tradução limitou-se a substituir as 
mensagens a imprimir no écran, o que em nada altera o que atrás fica 
dito.) As minúsculas não são utilizadas. Em contrapartida, deve fazer- 
se entrar o programa em minúsculas. 
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Antes de começar qualquer programa certifique-se de que a má- 
quina foi reinicializada, com a ajuda da sequência de instruções: 
MODE 1: INK 0,1: INK 1,24: INK 2,20: INK 3,6. 

Atenção: no écran do AMSTRAD os zeros aparecem quadrados e 
os «O» aparecem redondos; nas listagens, a diferença entre o zero e O 
O maiúsculo é evidente: o zero aparece cortado (f). 


Nível 1 
Nome do programa 
O número misterioso .... 


CUDO c.cssesesesenssisisieeos 


Os fósforos ................ 
Fósforos para vários .... 


Calendário perpétuo .... 
Batalha naval 


SOIÍC)O ssssssssa erre secres 


O jogo do 21 
Par-impar .................. 


Adivinha um número ... 


«Jackpot» 
Roleta 


Jogo da fava 
Jogo da glória aleatório 
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Temas e particularidades 


Jogo de dedução, para um jogador. Vários 
níveis. 

Jogo de desenho; perspectiva num écran. 
Lógica e acaso, para um jogador. Vários 
níveis. 

Jogo de reflexão, contra o computador. 
Jogo de reflexão e de estratégia, para vá- 
rios jogadores. 

Confecção de um calendário, mês após 
mês. 

Encontrar apenas um navio, mas algumas 
particularidades. 

Um percurso de 18 buracos, para um só jo- 
gador. 

Aprenda solfejo com a ajuda do seu com- 
putador. 

Jogo de azar, o computador é a banca. 
Um jogo de casino em três tempos (um ou 
vários jogadores). 

Um jogo muito fácil, para um ou vários 
Jogadores. 

Um jogo de reflexão, bastante simples, pa- 
ra dois jogadores. 

Um jogo de destreza muito visual, para um 
jogador. 

Jogo de azar, para um jogador. 

Uma elegante simulação do conhecidíssi- 
mo jogo. 

Um jogo de lógica, para descobrir. 

Uma base gráfica para as suas próprias 
criações. 

Um jogo de reflexão, para dois jogadores. 
Um jogo muito antigo, revisto e corrigido 
pelo computador; dois jogadores. 


Instruções elementares 


Vamos referir aqui apenas as instruções fundamentais, ou instru- 
ções de programação; muitos outros comandos, ou funções particula- 
res, serão utilizados ocasionalmente, por exemplo: 


— RND para obter um número aleatório entre O e 1. 
— INT para tomar a parte inteira de um resultado. 
— REM para colocar um comentário. 

— END para terminar um programa. 

— etc. 


As instruções fundamentais da programação, utilizadas logo des- 
de o nível 1, e presentes em praticamente todos os programas, são: 


LET (opcional); PRINT; INPUT; GOTO L » IFU | 
THEN | ;; FOR...NEXT; GOSUB... RETURN 


ou seja, somente sete instruções básicas (e duas instruções derivadas), 
que iremos agora examinar mais pormenorizadamente. 


A INSTRUÇÃO LET OU INSTRUÇÃO DE ATRIBUIÇÃO 


É a instrução por excelência das linguagens de programação evo- 
luída, porquanto o seu papel essencial é permitir, ao programador, 
uma gestão transparente da memória. Isto significa, na prática, que 
para pôr em memória uma quantidade, por exemplo 12, não é necessá- 
rio saber em que célula da memória ela vai ser colocada: basta atribuir- 
lhe um nome autorizado e é por esse nome que a quantidade será pos- 
teriormente encontrada e manipulada. 


— Se a quantidade é numérica, o nome será uma simples le- 
tra do alfabeto, ou um conjunto de várias cifras ou letras, 
começando obrigatoriamente por uma letra. 

— Se a quantidade é alfanumérica aplica-se a mesma regra 
para o nome, que deverá no entanto ser seguido pelo sim- 
bolo $, e a variável deverá ser escrita entre aspas. 
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Exemplo: 
LET Al=12: a variável Al toma o valor 12. 
LET NOMES = «RENOIR»; a variável alfanumérica NOMES 
toma o valor RENOIR. 


No AMSTRAD, como na maior parte dos Basic, o LET tornou-se 
opcional, por não ser possível qualquer ambiguidade, pelo que se es- 
creverá: A = 12; NOMES = «TOTO»; etc. 


A INSTRUÇÃO PRINT OU INSTRUÇÃO DE SAÍDA (ÊCRAN) 


É uma instrução de diálogo, que permite que a máquina imprima 
no écran um texto, o resultado de um cálculo ou uma variável. É o úni- 
co meio que o computador pessoal possui para fazer conhecer os seus 
resultados. Assim, PRINT Al provoca a impressão de 12 (se anterior- 
mente se faz Al = 12), PRINT A$ provoca a impressão de BOM DIA 
(se se faz A$ = «BOM DIA»). Utilizado após uma limpeza do écran, o 
PRINT provoca a impressão na primeira linha, ao alto e à esquerda. 

Pode ser utilizado certo número de parâmetros para obter uma 
impressão conveniente no écran: 


— PRINT TAB(N) provoca, na linha de impressão corrente, 
a impressão a começar na enésima coluna a partir da es- 
querda (1N40 no modo 1). 

— Um ; (ponto e vírgula) no fim do PRINT permite quer en- 
cadear uma outra impressão sem repetir a instrução 
PRINT, quer indicar que a próxima impressão será, na 
ausência de indicação em contrário, efectuada exactamen- 
te a seguir à impressão precedente. 

— A, (vírgula) provoca uma tabulação horizontal automáti- 
ca pré-definida modificada pela função ZONE. 


Ao teclar, a instrução PRINT poderá ser abreviada teclando ? 
(ponto de interrogação). Aquando de uma impressão, todos os núme- 
ros são precedidos de um sinal; mas o sinal positivo não é impresso, 
um espaço precederá portanto automaticamente a impressão de qual- 
quer resultado positivo. 
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A INSTRUÇÃO LOCATE 


O AMSTRAD dispõe de uma instrução particular, de uso muito 
elástico, que permite posicionar o cursor no écran, tendo em vista a 
próxima escrita. Trata-se da instrução LOCATE X,Y. X corresponde 
a uma tabulação horizontal (entre 1 e 40) e Y a uma tabulaçao vertical 
(entre 1 e 25) em modo texto. 

Assim, para escrever BOM DIA na 5.º coluna da 8.º linha es- 
crever-se-á: 


. LOCATE 5,8 : PRINT «BOM DIA» 


A INSTRUÇÃO INPUT OU INSTRUÇÃO DE ENTRADA 
(TECLADO) 


Esta instrução, que provoca no aparelho uma paragem e uma es- 
pera, permitirá fazer entrar um número, ou um texto, que será atribuí- 
do à variável que se segue à instrução INPUT. Isto é feito em modo 
conversacional, isto é, à medida das necessidades; efectivamente, 
quando o AMSTRAD encontra uma instrução INPUT pára e passa- 
nos o controlo para as mãos; pode então fazer-se entrar uma informa- 
ção de natureza conveniente (número ou texto) e assinalar-lhe que esta 
entrada está terminada com a ajuda da tecla ENTER, o que lhe devol- 
verá o comando das operações. 

Se a informação que se fez entrar não tem a natureza conveniente 
(por exemplo, se teclar um texto em resposta a um INPUT X que espe- 
ra um número), a mensagem REDO FROM START é impressa no 
écran e o aparelho volta a aguardar uma entrada. 

É possível, tal como com o PRINT, imprimir mensagens antes da 
entrada da variável e utilizar a instrução LOCATE. 

Poder-se-á, por exemplo, escrever: 


INPUT «O SEU NOME, SE FAZ FAVOR»; A$ 


AS JANELAS DE ÉCRAN 


O écran pode ser dividido em oito janelas, cada uma com sua cor 
de tinta e posição de cursor. Por defeito, as oito janelas são rigorosa- 
mente sobrepostas. A ordem WINDOW permite limitá-las a uma parte 
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do écran. Assim, WINDOW & 1,20,25,12,14 abre uma janela de écran 
entre as colunas 20 e 25 e entre as linhas 12 e 14. 

As instruções PRINT, INPUT e LOCATE, para serem executadas 
numa janela particular, devem utilizar o número respectivo dessa ja- 
nela. 

Assim, PRINT & 1, «TOTO» imprimirá na primeira janela, nas 
coordenadas (eventualmente) definidas por uma ordem do tipo LOCA- 
TE £1,X,Y. No caso de uma janela, X e Y são contadas em relação ao 
canto superior esquerdo desta, independentemente da posição no écran 
habitual de 40 x 25 linhas. 


A INSTRUÇÃO GOTO 
OU INSTRUÇÃO DE SALTO INCONDICIONAL 


Uma das particularidades da linguagem Basic, que a tornam facil- 
mente acessível, é a de cada linha de programa ter de ser precedida de 
um número, sendo essas linhas posteriormente executadas, pelo com- 
putador pessoal, em sequência, no sentido crescente dos números. Por 
diversas razões, poderá ser necessário, no decorrer de um programa, 
não seguir essa rígida ordem sequencial; utilizar-se-á então a instrução 
GOTO, que permite desviar o funcionamento do programa do seu cur- 
so normal, voltando aliás a retomá-lo seguidamente por um outro 
GOTO. Além disso, imperativamente, o salto deve ser feito para um 
número de linha existente no programa (GOTO 20, por exemplo). 

Para dar certa elasticidade a esta instrução de salto existe uma ins- 
trução mais poderosa, que permite o salto para qualquer número de 
linha, segundo o valor de uma variável numérica: é a instrução 
ON. GOTO »  ; escrever-se-á, por exemplo: 


ON X GOTO 100, 200, 300 


e o salto será feito para a linha 100 se X tiver o valor 1, para a linha 
200 se X tiver o valor 2 e para a linha 300 se X tiver o valor 3. 


A INSTRUÇÃO IF “THEN OU INSTRUÇÃO DE TESTE 


Pode ser utilizada de duas maneiras: antes de mais, numa rotura 
de sequência condicional, sob a forma: 


IF condição = verdade THEN número de linha 
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É este o uso mais corrente deste teste, que permite saltar para uma 
outra parte do programa se, por exemplo, X=0, ouse A=B, etc. Os 
operadores lógicos NOT, OR, XOR ou AND podem aliás ser utiliza- 
dos ao escrever a condição. 

Poder-se-á também utilizar o teste sob a forma: 


IF condição THEN instrução; 


a instrução apresentada a seguir ao THEN pode ser uma atribuição 
A = 12, uma impressão PRINT A, uma entrada INPUT B$, ou mesmo 
um outro teste IFL 14THENU ,. 

Pode, por exemplo, escrever-se: 


IF A>3 THEN IF B<7 THEN PRINT A+B 


A INSTRUÇÃO FOR... NEXT OU INSTRUÇÃO DE CICLOS 


Em programação é frequentemente necessário executar certo nú- 
mero de vezes uma dada sequência de instruções (por exemplo, fazer 
avançar um objecto móvel da célula 6 para a célula 20, etc.). Em vez 
de utilizar um teste e um salto, será preferível apelar para um ciclo ou 
anel, com a variável de salto a tomar valores inteiros ou decimais, e o 
passo desta variável (ou seja, a quantidade em que ela aumenta ou di- 
minui a cada passagem) podendo também tomar valores inteiros ou 
decimais. 

Assim se escrevermos: 


FOR I= 
NEXT I 


0 TO 20 STEP 2 
Instruções 


As instruções contidas no ciclo serão executadas para I= 0, para 
I=2,..., e isto até I=20, ou seja, onze vezes. A variável I pode ser 
utilizada para fazer um cálculo no ciclo, mas não deverá ser modifica- 
da no ciclo. Pode-se, é claro, sair do ciclo antes de I = 20, usando um 
teste contendo uma quantidade qualquer. 

Se o passo do ciclo (STEP) não for definido, será automaticamen- 
te tomado como igual a 1. 

É possível encaixar diversos ciclos de nomes diferentes, e omitir 
indicação da variável no NEXT. 
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A INSTRUÇÃO GOSUB OU INSTRUÇÃO DE CHAMADA 
DE ROTINA (OU SUBPROGRAMA) 


Quando uma dada sequência de instruções deve ser executada vá- 
rias vezes, é chamada a partir de vários locais do programa, evitar-se-á 
reescrevê-la várias vezes. Redigimo-la uma vez por todas e colocamo-la 
fora do programa propriamente dito (dando-lhe, por exemplo, um nú- 
mero de linha superior ao número da última linha do programa). Inde- 
pendentemente das dificuldades que poderão ser encontradas ao nível 
do nome das variáveis, quando se desejar utilizar esta sequência basta- 
rá chamá-la através da instrução GOSUB número de linha. O progra- 
ma irá então «fazer um desvio» à parte do programa chamada, mas 
não poderá regressar e prosseguir o seu desenvolvimento normal en- 
quanto não encontrar no programa chamado uma instrução 
RETURN, ou instrução de retorno. 


Eis o esquema teórico de funcionamento: 


Programa principal 


10 
20 partida 
para 1000 


1000 
1010 


] 
| 
110 GOSUB 1000 


20 «———— o « 1200 RETURN 
1 regresso após 110 
1 1000 


1 partida para 1000 1010 
230 GOSUB 1000 


TE a 1200 RETURN 
regresso após 230 


DS a 
Fim do programa principal 

1000 

A rotina é escrita apenas uma vez, 
1200 RETURN mas chamada tantas vezes quantas 
Subprograma 1 quisermos. 
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Uma rotina poderá eventualmente ela própria chamar uma outra 
rotina — e assim sucessivamente. 

Uma rotina pode também ser chamada de modo condicional, uti- 
lizando a instrução ON L 1 GOSUB LU ss. 

Por exemplo, ON X GOSUB 1000, 2000, 3000, permitirá executar 
o subprograma colocado em 1000 se X = 1, em 2000 se X = 2, em 3000 
se X=3. 


A INSTRUÇÃO WHILE/WEND 


Quando uma sequência de instruções deve ser executada enquanto 
se verificar uma certa condição, basta colocá-la no meio de um ci- 
clo WHILE/WEND. Atenção: antes de começar qualquer ciclo 
WHILE/WEND, é prudente inicializar a variável (ou variáveis) utiliza- 
da(s) para o teste de condição. 


EXEMPLO: 10 WHILE TE200 
20 TE=TE+1 : PRINT TE 
30 WEND 


A variável TE é aumentada uma unidade e impressa enquanto for 
inferior a 200. 

É possível encaixar entre si diversos ciclos WHILE/WEND (ver o 
programa «Relógio 2»), o que permite uma grande elegância na escrita 
dos programas. 
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O número misterioso 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: jogo de dedução para um jogador. 
Dificuldade do jogo: fácil. 


O JOGO: 

Pede-se ao computador que construa um número de n algarismos 
(com n compreendido entre 1 e 7). 

Dever-se-á seguidamente tentar descobrir, com o mínimo de tenta- 
tivas possíveis, recebendo para tal somente as informações «DEMA- 
SIADO GRANDE» ou «DEMASIADO PEQUENO». 


O PROGRAMA: 

A linha 60 permite construir o número a adivinhar. 

As entradas são feitas pelas linhas 80 e 90. 

A linha 100 testa se o resultado é exacto. 

A linha 110 assinala uma tentativa demasiado pequena, e a linha 
120 uma tentativa demasiado grande. 

O contador de tentativas está na linha 130. 

As linhas 160 a 180 ocupam-se da impressão do resultado e da ges- 
tão da partida seguinte. 


PARA JOGAR: 

Faz-se trabalhar o programa com RUN. 

Obtém-se uma primeira impressão «NÚMERO DE ALGARIS- 
MOS A ADIVINHAR?», à qual se responde com um inteiro entre 1 e 
7, seguido de ENTER. 

Obtém-se então a mensagem «TENTATIVA No. 1», seguida da 
pergunta «O SEU NÚMERO?». 

Faz-se entrar um número e prime-se ENTER. 

Obtém-se então uma resposta «DEMASIADO PEQUENO», ou 
«DEMASIADO GRANDE», ou ainda, se acertamos, uma mensagem 
de «ACERTOU EM ... TENTATIVAS». Se o resultado não é exacto 
recomeça-se: «TENTATIVA No. 2», e «O SEU NÚMERO?». 

No fim da partida obtém-se a pergunta «OUTRA PARTIDA? 
(S/N)»; responde-se S ou s (seguido de ENTER) para novo jogo. 

Pode-se parar em qualquer momento, premindo duas vezes segui- 
das a tecla ESC. 
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EXTENSÕES POSSÍVEIS: 

Poder-se-á imaginar fazer o jogador adivinhar outra coisa sem ser 
um número (por exemplo, uma palavra, utilizando a ordem alfabética, 
ou qualquer outra coisa...). 


19 REM O NUMERO MISTERIOSO 
30 INEUT "NUMERO DE ALGARISMOS A ADIVINH 
4% IF N>7 THEN RUN 

Sô IF Nº=0 THEN RUN 

EO X=INTCRNDCTIKIOCN+) 


70 J=] 
8% FRINT:PRINT "TENTATIVA No. “53 
994 INPUT “O SEU NUMERO? “MM 


160 IF M=X THEN 160 
lo IF M«X THEN PRINT “DEMASIADO PEQUENO 


122 IF M>X THEN PRINT "DEMASIADO GRANDE” 
130 J=J+1 

148 PRINT 

156 GOTO ER 

e a “ACERTOU EM “,3;” TENTAT 
178 INPUT "OUTRA PARTIDA? (S/N9";R$ 

130 IF R$="S” OR R$&="s” THEN RUN 
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Cubo 


REFERÊNCIAS: 
Dificuldade de programação: nenhuma. 
Categoria de jogo: desenho. 
Dificuldade do jogo: nenhuma. 


O JOGO: 

O programa proposto contenta-se em realizar, com a ajuda de ins- 
truções PRINT, uma vista de um cubo em perspectiva livre. 

Poderá ser incorporado, por exemplo, num jogo baseado nas ca- 
pacidades de reconhecimento das formas geométricas elementares. 


O PROGRAMA: 

O desenho do cubo é realizado pela impressão de pontos, utilizan- 
do dois ciclos: o ciclo I (30-120) e o ciclo I (130-180). 

O nome do objecto representado é impresso na linha 200 (neste 
caso: CUBO). 


PARA JOGAR: 
Basta fazer correr o programa com a instrução RUN e observar. 
Far-se-á ESC duas vezes para recuperar o controlo do programa. 


EXTENSÕES POSSÍVEIS: 
A alta resolução permitirá conseguir um traçado mais preciso. 
Poder-se-á imaginar um jogo que utilize paralelepípedos rectangu- 
lares de diferentes tamanhos, mostrando por exemplo três lados, e pe- 
dir que se determine o seu volume, etc. 
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1% REM CUBO 
24 CLS 


38 


FOR I=1 TO 11 


aw LOCATE Z+L, I:PRINT º.” 


5o 


LOCATE L,S:PRINTO.” 


EM LOCATE 3+L,I2Z:PRINT *.” 


7% 


LOCATE 1+1,19:PRINTO”.” 


Bo LOCATE 1, 8+I:PRINTO”.” 


EA 
109 


LOCATE 12, 7+1: PRINT º.” 


LOCATE 3, IH PRINT O”.” 

LOCATE 19, L:PRINT 2.” 

NEXT 1 

FOR 1I=1 TO 6 

LOCATE 1+L,S:PRINT O.” 

LOCATE 12+L,E-D:PRINTO”.” 

LOCATE 1+1,19-1: PRINT O”.” 

LOCATE 12+1,IS-L:PRINT *”.” 

NEXT 1 

à LOCATE ZE, IS: FRINT CHR$C 150); STRING$ 


13 
(A EASY: CHR$C 156) 


AIR] 


LOCATE £&, 20: PRINT CHR$C149);"CUBO”; 


CHR$C149G) 


218 


LOCATE Ze, 2) PRINT CHR$CI475; STRINGS 


(4, 154), CHR$C 153) 


Zea 


GOTO zz6 
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Quente, frio 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: solitário. 
Dificuldade do jogo: média. 


O JOGO: 

Um dos mais velhos jogos do mundo, praticado desde sempre, 
mas desta vez é o computador que lhe serve de parceiro de jogo: ele 
vai, com efeito, esconder um objecto num certo lugar de uma grelha 
cujas dimensões você próprio escolheu. Para o encontrar, ele dar-lhe-á 
apenas algumas indicações sob a forma de A ESCALDAR, ou COM- 
PLETAMENTE GELADO, etc. 

Deverá conseguir descobrir o objecto escondido, com o mínimo 
de tentativas possível (a sua pontuação será impressa no fim do jogo). 


O PROGRAMA: 

As linhas 40 e 50 definem a posição do objecto. 

A linha 100 calcula a distância em relação às duas coordenadas 
que você fez entrar nas linhas 70 e 80. 

A linha 110 verifica se você ganhou. 

As linhas 130-140 normalizam a distância (que deve ter um senti- 
do, sejam quais forem as dimensões da grelha inicial). 

A linha 150 dá o salto, se houver motivo para isso, para uma das 
rotinas de impressão. 


PARA JOGAR: 

Inicia-se o programa com a ordem RUN, depois introduzem-se as 
dimensões da grelha (quadrada) e prime-se ENTER. 

Após a impressão da mensagem seguinte (ENTRE O VALOR 
DE X) faz-se entrar a coordenada X que supomos correcta, seguida de 
ENTER. 

Obtém-se a impressão da mensagem ENTRE O VALOR DE Y e 
faz-se entrar Y, seguido de ENTER. 

Em resposta obtém-se um texto, que é variável consoante se esti- 
ver mais ou menos longe do objecto procurado (esta resposta vai de 
COMPLETAMENTE GELADO a A ESCALDAR). Quando se conse- 
guiu encontrar o objecto obtém-se a impressão do número de tentati- 
vas efectuadas. 

Para sair do programa antes do fim do jogo, basta premir ESC 
duas vezes seguidas. 
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EXTENSÕES POSSÍVEIS: 


Se se dispõe da cor, será interessante descobrir um meio mais vi- 
sual para simbolizar a distância, por exemplo quadrados que podem ir 


do vermelho ao azul, nos locais onde foram feitas tentativas. 


1ô REM QUENTE, FRIO 
CLS 


30 INFUT "DIMENSAO DA GRELHA: 


40 X=INTCRND&D+]) 
By Y=INTCRNDAD+1) 
EM CLS 


76 INFUT “ENTRE O VALOR DE X: 
Bo INPUT “ENTRE O VALOR DE Y: 


94 S=S+] 

1060 T=ABSCX-AJ+ABSCY-E) 
Via IF T=0 THEN 2586 

1280 PRINT:FRINT "ESTA! ”; 
34 N=INTCSQRCD)/T)+] 

a IF N>5 THEN N=5 


O IF T<=S0RCD) THEN ON N GOTO 188, 200, 


20, 280, ZE 


n” 


7) 
“” 


:D 


:A 
:B 


166 PRINT "COMPLETAMENTE GELADO” 


172 GOTO 78 

180 PRINT “FRESCO” 

199 GOTO 78 

200 PRINT ºMORNO” 

210 GOTO 70 

220 PRINT "QUENTE! 

“so GOTO 70 

246 PRINT "MUITO QUENTE” 
259 GOTO 70 

260 PRINT “A ESCALDAR” 
27% GOTO 70 

280 CLS. BORDER 3,4 


294 LOCATE 10, 12: PRINT "DESCOBRIU EM ";S 


1" TENTATIVAS.” 
200 FOR T=1 TO 5OO0:NEXT T 
310 BORDER 1,1 
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Os fósforos 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: contra o AMSTRAD. 
Dificuldade do jogo: média. 


O JOGO: 

O jogador deverá escolher, no início do jogo, uma certa quantida- 
de de fósforos, assim como o número máximo deles que se pode retirar 
de cada vez. Em seguida decide se é ele a começar ou se deixa começar 
o AMSTRAD. Cada qual tira por sua vez tantos fósforos quantos de- 
sejar, dentro do limite do número máximo autorizado. 

Perde aquele que tirar o último fósforo. 


O PROGRAMA: 

Para o jogador, o jogo começa na linha 70. 

Para o AMSTRAD começa na linha 110. 

A linha 80 controla a legalidade da jogada do jogador. 

A linha 90 gera a mudança de jogador. 

A jogada do AMSTRAD é calculada num ciclo não formal, da li- 
nha 120 à linha 150. 

O resultado é impresso pela linha 1020. 

Se o jogo está terminado, a linha 1030 detecta-o e envia para a li- 
nha 2000, para a mensagem de fim. 


PARA JOGAR: 

A execução começa-se fazendo RUN e, depois de aparecer a men- 
sagem NUMERO TOTAL, faz-se entrar o número de fósforos, segui- 
do de ENTER. Depois faz-se entrar o número máximo de fósforos que 
se pode retirar de cada vez, seguido de ENTER. Se o jogador quer 
começar, carrega na tecla O; se não, carrega na tecla 1, e depois em 
ENTER. 

Após cada jogada, o número de fósforos restantes é impresso no 
écran, eo AMSTRAD imprime VOCE RETIRA quando é a vez do jo- 
gador. 

Perde aquele que retirar o último fósforo. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á, evidentemente, pensar numa apresentação gráfica a 
cores mais espectacular, imaginar deixar o acaso escolher o número de 
fósforos e o número máximo que se pode retirar de cada vez, etc. 
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19 REM OS FOSFOROS 

2à CLS 

30 INPUT "NUMERO TOTAL ' 
40 INPUT “MAXIMO PERMITIDO RETIRAR : 
56 INPUT "QUEM COMECA (VOCE: 0/EU:; 1) 


60 IF D=] THEN 116 
78 INPUT "VOCE RETIRA :º;P 
86 IF P<X>INTCFP) OR P<1 OR P>N OR P>1 THE 


D=1 

à» GOTO 1000 

à S=1+D 

% T=(N-S)/CI+D) 
& IF T=INTCT) THEN 200 
2 S=S5-D 

à GOTO 120 

à P=ABSCS-D) 
(o) 

Q 

LS) 

1 

o 

> 


2Z 


ME a THEN P=D 


2 N=N-P 

à PRINT "SOBRAM “;N 

320 IF N=0 THEN 2000 

1040 GOTO €0 

2000 CLS 

2010 IF D=1] THEN PRINT “GANHEI”: SOUND 1, 
478: SOUND 1,426: SOUND 1,:379 

2020 IF D<>) THEN PRINT "BRAVO”:; SDUND 1, 
256, 4: SOUND 1,256,4,92:SOUND 1,256,4 


cat md mt cmd 1) Ji) 1) mt us 3 is a ms 
SOSSN-SNAWIN—S 


Fósforos para vários 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: lógica (vários jogadores). 
Dificuldade do jogo: bastante difícil. 


O JOGO: 

Neste jogo para vários jogadores, o condutor do jogo deverá, 
no início da partida, escolher um número de fósforos e indicar ao 
AMSTRAD o número de jogadores. 

Em cada jogada, o jogador que está na sua vez de jogar pode reti- 
rar do monte de fósforos restantes até o dobro dos que foram retirados 
pelo jogador precedente; aquele que retirar o último fósforo ganha (ou 
perde, se se modificarem ligeiramente as regras.) 


O PROGRAMA: 

A linha 20 permite trabalhar com inteiros, provocando o arredon- 
damento dos valores. 

As linhas 40 a 60 permitem as diferentes entradas. 

As linhas 100 a 120 realizam as impressões. 

A linha 140 controla a jogada de cada jogador (em relação à joga- 
da precedente). 

A linha 200 gera a vez dos jogadores (reposição a 1 do número do 
jogador). 


PARA JOGAR: 

Depois de fazer correr o programa usando RUN, faz-se entrar o 
número inicial de fósforos, seguido de ENTER, depois o número de 
jogadores (e ENTER). 

O primeiro jogador só poderá tirar 1 fósforo; o segundo poderá 
tirar 1 ou 2; o seguinte, 1 ou 2, ou 1, 2, 3 ou 4, consoante a jogada an- 
terior — e assim por diante; o número máximo que se pode tirar de ca- 
da vez é impresso pelo AMSTRAD. 

Quando o último fósforo for retirado obtém-se a mensagem im- 
pressa O JOGADOR... GANHA, e a partida termina. 


EXTENSÕES POSSÍVEIS: 

Pode-se convencionar que aquele que tira o último fósforo é eli- 
minado do jogo e recomeçar a partida entre os jogadores restantes, 
que assim serão eliminados um após outro. 
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Pode-se também imaginar uma representação gráfica dos montes 
de fósforos, estabelecer ao acaso o número de fósforos a retirar no 
começo do jogo, etc. 


13 REM FOSFOROS PARA VARIOS 

Ze BREAD, F,4T,K,N 

o 

40 INPUT "NUMERO DE FOSFOROS? “SN 
59 PRINT 

66 INFUT “NUMERO DE JOGADORES? "5. 
70 F=1ik=1:INK 1,0 


K 
180 FRINT TABCIZ)"VEZ DO JOGADOR" ;KEPRIN 


& PRINT "TOTAL RESTANTE SN 
Q PRINT “MAXIMO A RETIRAR «Us F 
& INFUT “A SUA JOGADA ATA 
a IF Ci=o OR C>F THEN 130 


N=N-C 
& IF N<g THEN N=N+C: GOTO 130 
Q F=C+C 
à IF N=6 THEN 226 
? k=k+1 
Q IF K>] THEN Kz] 
» GOTO 80 
à CLS 
A reiádd TZ, 1Z: PRINT "O JOGADOR ",k;"6G 


7) 
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Calendário perpétuo 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: brinde publicitário. 
Dificuldade do jogo: nenhuma. 


O JOGO: 

Este programa permitir-lhe-á confeccionar todos os anos o seu 
próprio calendário; poderá assim servir-se dele para enviar aos seus 
amigos um calendário do mês do seu nascimento, ou para lhes desejar 
feliz aniversário, etc. 


O PROGRAMA: 

As linhas 30 e 50 permitirão dar entrada ao ano e ao mês. 

As linhas 60, 70 e 80 calculam o número do primeiro dia do mês. 

A linha 90 calcula o número de dias do mês (para simplificar, aqui 
não se toma em consideração os 29 de Fevereiro). 

O ciclo A (160-190) realiza a impressão do calendário propriamen- 
te dito. 

A linha 140, com a ajuda da ordem ZONE, permite separar com 
cinco espaços em branco os elementos da lista separados por uma vir- 


gula. 
A linha 200 evita a aparição da palavra READY. 


PARA JOGAR: 

Depois de fazer correr o programa com a instrução RUN deverá 
introduzir-se o ano, sob a forma de, por exemplo, 1986, seguido de 
ENTER. 

Obtém-se então a pergunta MES, à qual convém responder com o 
número do mês, de acordo com a ordem usual (1 para JANEIRO, 2 
para FEVEREIRO, etc.). 

Seguidamente faz-se ENTER, e o calendário será então impresso 
no écran. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á sem dificuldade prever a impressão dos 29 de Feverei- 
ro, prever uma opção que permita a impressão de um ano completo, 
prever a introdução do nome dos meses, até agora em claro, etc. 
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Jo Pre CALENDARIO PERPETUO 
512) Rino "PARA QUE ANO?";A 


Bo INPUT “FARA QUE MES?";M 

BO J=INT(3ES. 25XCA+(M<3)2)+] 
J=I+INTC3O.GKCM+HI-CMEIDXKIZID-INTCCINT 
(CArCME3))/100)-7)280, 75) 

20 J=]-7KINTCJ/7) 

areia OR M=E OR M=9 OR M=119)+(Ma2 
ES 

160 PRINT:PRINT:PRINT 

Ng FEN 2 

Rene "DOM SEG TER QUA QUI SEX 
136 PRINT 

149 ZONE 5S:PEN 3 

152 LOCATE S+kI+1,I16 

1560 FOR A=1 TOM 

178 PRINT A, 

189 IF J+A-1=6 THEN PRINT:FRINT: J=]-7 
198 NEXT A 

200 GOTO 206 


=3 
G 


AV.NI—S3 
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Batalha naval 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: reflexão. 
Dificuldade do jogo: fácil. 


O JOGO: 

Uma batalha naval bastante simples a priori, com um único navio 
escondido ao acaso numa grelha de 10 por 10 casas. 

Em cada jogada dever-se-á disparar dando as coordenadas H (ho- 
rizontal) e V (vertical) da casa visada, eo AMSTRAD responde impri- 
mindo no écran a distância que separa o navio invisível da casa visada. 
Mas, se O tiro cai muito perto, corre-se o risco de o navio voltar a 
esconder-se ao acaso. 


O PROGRAMA: 

O ciclo I (50-80) desenha o campo de jogo. 

As linhas 100-110 definem a colocação do navio. 

As coordenadas do tiro são feitas entrar nas linhas 130 e 140, e a 
linha 150 imprime o tiro, no écran. A distância é calculada na linha 
160, e a linha 170 verifica se se acertou ou não no alvo. 

A linha 190 intervém para deslocar o navio se os tiros são muito 
próximos do alvo. 

A linha 200 permite imprimir a distância. 


PARA JOGAR: 

O campo de jogo é impresso depois de se ter teclado RUN. Depois 
de surgir a palavra LINHA? responde-se dando o número da linha ho- 
rizontal sobre a qual se deseja disparar. A seguir tecleia-se ENTER, e à 
pergunta COLUNA? responde-se dando o número da coluna vertical, 
seguido de ENTER. 

Se se atira muito perto obtém-se a impressão da mensagem 
PFFFF ..., que significa que o navio inimigo mudou de posição. 

Se se atirou sobre a casa exacta obtém-se a impressão do número 
de tiros efectuados para ganhar. 


EXTENSÕES POSSÍVEIS: 

São inúmeras, tal como a batalha naval é um dos jogos mais espa- 
lhados. Pode introduzir-se dois jogadores, jogar contrao AMSTRAD, 
pôr vários navios, submarinos, etc. 
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1á REM BATALHA NAVAL 
2% RANDOMIZECTIME) 
30 CLS 
46 PRINT ” Q 1 234 5 6 7 8 
9" PRINT 
So FOR 1I=6 TO 9 
se PRINT 1,5”... 


76 PRINT 

Bo NEXT I 

94 S=] 
X=INTCRNDX10) 
Y=INTCRNDX10) 
LOCATE 1, 23: PRINT a 


LOCATE 1,23: INPUT “LINHA? “5H 
LOCATE 24,23: INPUT “COLUNA?” MV 
LOCATE 3kV+3, 2XKH+3: PEN 3: PRINT S:PEN 


D=INTCSQRCCX-HIXKCX-HI+CY-VIKCY—-V99) 
170 IF D=0 THEN 210 

180 S=S+1 

196 IF D=| THEN LOCATE TV, 24: PRINT ºPFFF. 
RR "GOTO 100 

200 LOCATE 1,24; PRINT "DISTÂNCIA ed 
;D. GOTO 120 

210 CLS 

220 PRINT "DESCOBERTO EM ";S;” JOGADAS” 


el cum memê ad el am? 
Dsinbiy tHN-—O 
Q SOS 99S 
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Golfe 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: solitário. 
Dificuldade do jogo: bastante fácil. 


O JOGO: 

Trata-se de tentar realizar, com o menor número de tacadas possi- 
vel, um percurso de golfe de dezoito buracos. Para isso é necessário 
bater a bola com maior ou menor força, até obter a sua queda no bu- 
raco. 

Mas atenção: pode haver um certo elemento casual em cada taca- 
da, e o jogador será levado a voltar para trás [nesse caso será necessá- 
rio fazer preceder de um sinal de menos (—) a indicação da força]. 


O PROGRAMA: 

A linha 70 permite definir a posição do buraco, e a linha 80 dese- 
nha o campo de jogo. 

A deslocação a realizar é calculada na linha 120. 

O ciclo I (150-210) realiza a deslocação da bola. 

A linha 220 verifica se a tacada acertou ou não; se acertou, 
recomeça-se (linha 270) até se ter realizado 18 buracos [ciclo S 
(40-270); fim de ciclo em 290, com impressão da mensagem de fim). 


PARA JOGAR: 

Teclando RUN obtém-se a impressão do campo de jogo, assim co- 
mo o desenho da bola na sua posição de partida e o texto: BURACO 
1. FORÇA?; deve-se então responder dando a força desejada (um nú- 
mero entre 1 e 300...). 

Desde que se tenha teclado ENTER, a bola começa a deslocar-se; 
pode então parar antes do buraco (caso em que se recomeçará), cair 
nele (passa-se então ao buraco seguinte), ou ultrapassá-lo (deverá en- 
tão bater a bola com uma força negativa). 

O jogo termina com a impressão da mensagem 18 BURACOS EM 
... TENTATIVAS. 


EXTENSÕES POSSÍVEIS: 

Será possível ampliar o jogo para fazer participar vários jogado- 
res, melhorar a representação gráfica, utilizar uma representação espa- 
cial do campo (tomar como referência certos jogos de arcada), criar 
um campo mais acidentado, mudar de taco... 
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16 REM GOLFE 

2% RANDOMIZECTIME) 

34 INK O,S: INK 1,18: INK 2,0: INK 3,26 

42 FOR S=|1 TO 18 

Bo CLS 

EM X=] 

76 T=INTCZSKRND+S) 

BO PEN I:ILOCATE 1, I2:PRINT STRING$C4O, 20 


Ef sa E ego E TAIS PRINTOº PiLOCATE 1, 
166 PEN Z:LOCATE V,NZEPRINT “BURACO ";S; 
" FORCA ?” 

No LOCATE 1€,17Z:PRINT ” ii 
120 PEN Z:LOCATE 16,17: INPUT “2",R 
30 F=INTCRKO. 1E-CABSCRIXCSQRCRND)+0,1)* 
(Togo) 

à IF F=6 THEN 116 

a FOR I=1 TO MIN CABSCF3,40) 

A=X+SENCF 3 


O IF X.=40 AND X>=] THEN LOCATE X-SGNC 
ME PRINT ” “.LOCATE X, VI: PRINT “0” 

Q IF X>=46 THEN X=40 

à IF XÉ=] THEN X=] 

à NEXT I 

PORTA Er ei T THEN 2590 


1 
1 
E 
1 
1 
[= 
1 
é 


250 LOCATE XE PRINT” “.LOCATE X,1Z:PR 


Zz€0 FOR P=1 TO 1006:NEXT P 

27% NEXT S 

200 CLS 

<90 LOCATE 16, IZ: PRINT "18 BURACOS EM ”; 
E;” TACADAS” 
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Solfejo 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: reflexão. 
Dificuldade do jogo: fácil. 


O JOGO: 

Este programa propõe-lhe uma iniciação elementar ao solfejo, 
permitindo-lhe aprender a reconhecer facilmente as diferentes notas, 
que aparecem uma após outra sobre uma pauta; após a apresentação 
da nota, deve fazer entrar o nome dela; a sua pontuação será exposta 
permanentemente. 

O programa está previsto, inicialmente, para a clave de sol, mas 
será muito facilmente adaptado a outra clave. 


O PROGRAMA: 

O ciclo I (50-80) desenha uma pauta. 

A nota é escolhida na linha 100 e impressa pelas linhas 130 a 160 
com tinta transparente (linha 120). 

A linha 190 imprime a pontuação. 

A linha 200 imprime o nome da clave (sol, neste caso) e pergunta 
qual é a nota. 

A linha 220 ocupa-se do fim do jogo. 

As linhas 230 e 240 efectuam a descodificação do nome da nota 
que se fez entrar. 

A linha controla o resultado. 


PARA JOGAR: 

Depois de fazer correr o programa com RUN será impressa a pau- 
ta, assim como a primeira nota. 

Responderá à pergunta QUAL É A NOTA? fornecendo o nome 
da nota (dó, ré, mi, fá, sol, lá ou si), seguido de ENTER. 

A pontuação indicar-lhe-á se acertou ou não, e será impressa uma 
nova nota. 

Para parar bastará responder 0, seguido de ENTER, à pergunta 
QUAL É A NOTA?. 


EXTENSÕES POSSÍVEIS: 
Poder-se-á antes de mais modificar facilmente o programa para 
lhe permitir trabalhar com as diferentes claves. Poder-se-á também 
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melhorar o grafismo, introduzir a cor, o som (por exemplo, quando se 
tiver respondido correctamente ouvir-se-á a nota). Seguindo o mesmo 
princípio, poder-se-á também realizar um jogo que permita reconhecer 
acordes, etc. 


19 REM SOLFEJO 
20 RANDOMIZECTIME) 
30 5=0:P=ô 


o FEN 2 
76 LOCATE 1, 2KI+3:FRINT STRING$C4O, 216) 
Bo NEXT 1 
96 FEN 3 
100 N=INTCRND&1]29+1 
No X=N+3 
120 PRINT CHR$CZZ)+CHR$CT) 
50 LOCATE 21,X Eng a CHR$C2Z11):LOCATE 
21, X-=2:PRINT CHR$C SGA 
1460 LOCATE 21, XI SPRINT CHR$&C 211) 
156 LOCATE 19, X: PRINT CHR$(C214); CHR$CZIB 
J5CHR$ECZIT) 
169 LOCATE 19,X+ !FRINT CHR$(213); CHR$CZ 


1Z 

1764 PRINT CHR$CEZO+CHRÉCO) 

lão PEN 1 

194 LOCATE 16,2): PRINT "PONTUACAO ";S;” 
EM ";F;” TENTATIVAS": PRINT 

did "CLAVE DE SOL - QUAL E' A NOTA 
216 R$=UFFERSCR$) 

22o IF R$="0" THEN END 

20 Y=(1 AND R$="SOL"D+cZ AND R$="FA”D+C 
3 AND R$="MIVC)+(4 AND R$="RE”) 

240 Y=Y+(5 AND R$="DO")+(E AND R$="S1")+ 
(7 AND R$="LA”) 

250 P=P+] 

<6% IF Y=N OR CY=N-7 AND N>9) THEN S=S+1 
27% GOTO 40 
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O jogo do 21 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria do jogo: jogo contra o AMSTRAD. 
Dificuldade do jogo: fácil. 


O JOGO: 

Dever-se-á fazer entrar uma parada no início do jogo, e poder- 
-se-á lançar os dados teclando 1; a cada lançamento obter-se-á um no- 
vo total, que aumentará pouco a pouco e se aproximará de 21. Dever- 
-se-á tentar chegar o mais próximo possível de 21, sem ultrapassar esse 
número. Quando se decidir parar bastará teclar O para deixar jogar o 
AMSTRAD, que tentará então atingir melhor pontuação. 

Ao fim de cada partida será impresso o ganho, assim como o total 
dos ganhos (ou das perdas). 


O PROGRAMA: 

As linhas 60 e 70 realizam o controlo de quem deve jogar (o joga- 
dor ou o AMSTRAD). 

A rotina (410-420) lança os dados. 

As linhas 90 a 110 calculam o total conseguido pelo jogador e 
imprimem-no. 

O total do AMSTRAD é calculado na linha 180 e impresso pela li- 
nha 200. 

A linha 230 controla o fim do jogo para o AMSTRAD. 

As linhas 260-280 imprimem os resultados. 

O ganho ou a perda serão impressos pela linha 330, e o total pela 
linha 360. 

A linha 390 controla o fim da partida. 


PARA JOGAR: 

Teclar RUN para começar o jogo. 

À pergunta SUA PARADA? fazer entrar a parada inicial, seguida 
de ENTER, e teclar 1 para lançar o dado. A primeira tiragem é impres- 
sa sob a forma VOCE TEM..., e dever-se-á teclar 1 seguido de EN- 
TER enquanto se desejar fazer lançamentos. 

Quando se terminou tecleia-se O e ENTER, para deixar jogar o 
AMSTRAD (que desempenha aqui o papel de banca). 

O ganho (ou a perda, se tiver o sinal —) será impresso no fim do 
jogo, assim como o total dos ganhos (ou perdas) realizados desde o iní- 
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cio. Se se deseja deixar de jogar dever-se-á teclar N em resposta à per- 
gunta CONTINUAMOS (S/N)?. 


EXTENSÕES POSSÍVEIS: 

Este jogo será evidentemente mais interessante se for jogado por 
várias pessoas, e será fácil modificar o programa nesse sentido. Poder- 
-se-á também desenhar o dado, ou, melhor, utilizar cartas, o que per- 
mitirá então fazer um jogo de blackjack. 


19 REM JOGO DO 21 

2o RANDOMIZECTIME) 

30 CLS 

ay T=0 

5y INPUT “A SUA APOSTA :º;M 

EW LOCATE 3,25: INFUT “ENTRE 1 FARA LANCA 
R O DADO, & PARA ACABAR";R 

7% IF R=y THEN 140 

2% GOSUE 416 

20 T=7+X 

tog PAPER F:FEN & 

Wo LOCATE 16, 1Z: PRINT USING “O SEU TOTA 
LE' DE &Hº;T 

120 PAPER G:FEN 1 


156 PRINT "A BANCA JOGA” 


176 GOSUE 416 

180 E=5+X 

194 FAPER 1:FEN O 

20% PRINT USING “TOTAL DA BANCA EH”; S 
216 PAPER G:FEN 1 

220 FOR I=1 TO SOG:NEXT 1 

230 IF S»T OR 5217 THEN 250 

24wo GOTO 170 

250 CLS 

a doida Z:PEN Z: PRINT USING “VOCE TEM 
270 PRINT 

280 PAPER 1:FEN G:FPRINT USING “A BANCA T 
EM ERVSS 

“sw PAPER G:FEN 1 

300 PRINT 

310 IF S>z1 OR CSLT AND Tí=21) THEN 330 
tea M=-M 

s20 PRINT "GANHO “;M 

340 PRINT 

354 6=6+M 

sb0 FRINT "OD SEU TOTAL ACTUAL “5,6 

370 PRINT 

se» INFUT “CONTINUAMOS CS/N9? "R$ 

390 IF R$="N” THEN END 

avo GOTO SO 

410 X=INTCG&RND)+1 

420 RETURN 
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Par-ímpar 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: lançamento de dados. 
Dificuldade do jogo: fácil. 


O JOGO: 

Trata-se de um jogo de azar, para um ou vários jogadores. O 
AMSTRAD lança simultaneamente dois dados, não visíveis, e faz três 
perguntas: qual é a paridade do total, qual é o total e, finalmente, qual 
o valor de um dos dados. 

Pode-se em seguida prosseguir o jogo ou interrompê-lo em qual- 
quer momento. 


O PROGRAMA: 

Os dados são lançados por uma rotina colocada nas linhas 380 
e 390. 

A linha 80 conta o número de partidas e as linhas 180, 250 e 290 
contabilizam os pontos marcados. 

A paridade do total é determinada pelas linhas 130 e 140 (a linha 
140 compara com a resposta do jogador). 

A linha 300 e as seguintes realizam a impressão do fim de partida: 
total, número de pontos, número de partidas jogadas. 

A linha 360 provoca a paragem se se responde N à pergunta CON- 
TINUAMOS (S/N)?. 


PARA JOGAR: 

Faz-se correr o programa com a instrução RUN. 

Em seguida basta responder às diversas perguntas feitas, obser- 
vando escrupulosamente as indicações dadas e teclando ENTER após 
cada resposta. 

Quando se terminou uma partida obtém-se o resultado impresso 
do total actual e do número de partidas sob a forma de por exemplo, 
SEU TOTAL: 6 EM 10 PARTIDAS. 

Aparece então impressa a pergunta CONTINUAMOS (S/N)? e 
dever-se-á responder N seguido de ENTER para acabar. 


EXTENSÕES POSSÍVEIS: 

Se se deseja jogar com vários jogadores será interessante prever a 
possibilidade de fazer paradas e de acrescentar uma gestão da pontua- 
ção alcançada por cada um dos jogadores. Poder-se-á também prever 
uma melhoria no plano da apresentação (utilização da cor, etc.). 
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Nó 


L-SLDITNR UI 
SOSSDSTSOISDS O 


Nono -=205—472 


240 


30 
“396 


REM PAR- IMPAR 
RANDOMIZE (TIME) 
INK 3,3,6 
T=6:R=0 

GOSUB 380 


A=X 

GOSUE 330 
R=R+1 
S=A+X 


CLS 
INFUT “TOTAL PAR (CG) OU IMPAR 0197”; 


PRINT 

P=5/2-INT(S/2) 

IF N=P OR N-6.5=P THEN 170 

PEN 3:PRINT “FALSO” :PEN | 

GOTO 196 

PEN Z:FRINT “EXACTO” :PEN 1 

T=7+1 

PRINT 

INPUT "TOTAL CALCULADO?” ;N: PRINT 
IF N=5 THEN 250 

PEN 3:FRINT “PERDEU” :PEN 1 

FOR I=1 TO 1506:NEXT 1 

GOTO 319 

T=T+2 

PEN 2: PRINT “BRAVO! ";:PEN 
INPUT "VALOR DE UM DADO: “;N:PRINT 
IF N<>A AND N<>S-A THEN 226 

T=7+3 

PEN 2:PRINT "BRAVO!" :PEN 1:GOTO 250 


LS 
PRINT "SEU TOTAL: ";T;” EM “5R;” PAR 


PRINT 

INPUT “CONTINUAMOS (S/N)? RE 
IF R$="N” THEN END 

GOTO Só 

X=INTCRNDKE)+] 

RETURN 
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Adivinha um número 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: lançamento de dados. 
Dificuldade do jogo: fácil. 


O JOGO: 

É um jogo de azar, de concepção muito simples, mas no entanto 
bastante apaixonante: o jogador introduz a sua parada e aposta num 
número, de 1 a 6; são então lançados três dados; se o número aparece 
duas vezes ele duplica a sua parada; se aparece três vezes, ele triplica a 
parada. 


O PROGRAMA: 

O lançamento dos dados é realizado por uma rotina colocada nas 
linhas 1000 e 1010. 

A impressão é realizada pelas linhas 150 e 160, tendo a linha 145 
deslocado as tabulações. 

As linhas 180 a 210 calculam o ganho das diversas configurações 
possíveis. 

A totalização é efectuada na linha 230 para os ganhos e na linha 
510 para as perdas. 

A variável R$, testada na linha 550, determina a eventual conti- 
nuação do jogo. 


PARA JOGAR: 

A iniciação de execução do programa utilizando RUN determina a 
impressão de uma primeira mensagem: SUA APOSTA; responde-se 
com um número seguido de ENTER. Obtém-se então a impressão de 
uma segunda mensagem: ESCOLHA UM NUMERO DE 1 A 6; faz-se 
entrar um número seguido de ENTER; os três dados, referenciados pe- 
las letras A, Be C, são então impressos, assim como uma mensagem 
indicando o seu ganho ou a sua perda. Aparece então uma indicação 
sobre o seu total actual, assim como a pergunta CONTINUAMOS 
(S/N)?; teclar S para continuar, N para acabar (seguido de ENTER). 


EXTENSÕES POSSÍVEIS: 

Kacilmente se poderá introduzir controlos (aposta mínima, jogada 
proposta de 1 a 6, etc.). Poder-se-á também desenhar dados com um 
grafismo mais elaborado, introduzir a possibilidade de vários jogado- 
r2s, até mesmo fazer participar o AMSTRAD. 
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Bo 
PEN 


REM a Di 


E UM NUMERO 


RD TIME) 

CLS 

INFUT "SUA APOSTA: “,N 
PRINT 


FRINT "ESCOLHA EU Eno DE 1 A 6.º: 


2: INPUT "º,DiP 


90 GOSVE 1000 


Ma GOMA CH 
SSSSESDSONDSD 


559 
SEO 


A=X 
GOSUE Toda 
E=X 


GOSUE 1004 
C=X 
ZONE 14 
PRINT:PRINT:PRINT O,” A,” Er,P Cr 
Sida 2: PRINT ,A,B,C:PEN 1 
=() 
IF D=A THEN T=T+N 
IF D=E THEN T=T+N 
IF D=C THEN T=T+N 
IF D=à THEN 500 
PRINT:PRINT:PRINT "GANHOU “;T 
G=G+T 
GOTO 5zo 
FEN 3: PRINT:PRINT:FPRINT “PERDEU”: PEN 


G=6-N 

PRINT:PRINT:FRINT “TOTAL ACTUAL: “56 
PRINT:PRINT S 

INFUT “CONTINUAMOS (S/N9?", R$ 

IP R$="/N” OR R$="n” THEN END 

GOTO 5ó 


Ioga X=INTCRND&E)+] 


1818 


RETURN 
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O jogo de Witthof 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: reflexão (dois jogadores). 
Dificuldade do jogo: média. 


O JOGO: 

Dispõe-se de uma grelha quadrada de 10 por 10 casas. Aparece 
um ponto, fora da diagonal, e os jogadores deverão deslocá-lo um de 
cada vez, seguindo somente três direcções, direita, baixo e diagonal, 
baixo e direita. O primeiro jogador a chegar a (9,9) será considerado 
vencedor ou vencido, consoante o que for convencionado no início do 
Jogo. 


O PROGRAMA: 

As linhas 40, 50 e 60 permitem definir uma posição de partida, 
fora da diagonal. 

A linha 80 e o ciclo I (90-110) desenham o campo de jogo. 

A linha 130 imprime a posição do ponto móvel [uma face que se 
torna sorridente quando atinge a casa de chegada (9,9)]. 

O teste de fim de jogo é efectuado na linha 140. 

A mudança de jogador é assegurada pela linha 200. 

As direcções de deslocação disponíveis, 1, 2 e 3, são descodifica- 
das por três rotinas que começam nas linhas 220, 240 e 250. 


PARA JOGAR: 

Teclar RUN para iniciar a execução do programa. O campo de jo- 
go é impresso no écran, assim como a posição de partida. 

A seguir surge a mensagem JOGADOR 1 e por baixo a pergunta 
DIRECCAO (1, 2, 3)?, à qual se responde teclando um desses três nú- 
meros, seguido de ENTER. 

Vem em seguida a vez do jogador 2. 

O jogo termina quando um dos jogadores atinge a casa (9,9). Te- 
clar então ESC duas vezes para recomeçar o programa. 


EXTENSÕES POSSÍVEIS: 

Pode-se antes de mais melhorar os controlos (a saída do campo de 
jogo não é interdita, por exemplo), melhorar em seguida a impressão 
(grafismo, cor), alargar o jogo a vários jogadores, prever um progra- 
ma que permitiria que o AMSTRAD jogasse, etc. 
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14 REM JOGO DE WYTTHOF 

Zo RANDOMIZE (TIME) 

30 DEFINT X,Y 

4% X=RNDES 

Bo Y=RNDkS 

Ew IF Y=X THEN 50 

7% CLS 

o DAMA E 1 2 3 4 5 E 7. 8 


94 FOR I=0 TO 9 

109 PRINT:PRINT a a 

16 NEXT 1 

120 H=1 

1350 LOCATE SKX+6, ZkY+3: PRINT CHR$CZ25+CX 
=9 AND Y=9)9) 

140 IF X=9 AND Y=3 THEN FEN 1: GOTO 146 
1592 FEN H+1 
1€E8 LOCATE 1,23: PRINT STRING$C3O, 32) 

1780 LOCATE 1, 23:PRINT “JOGADOR “;H;: INPU 
T "DIRECCAO (1, &, 39?";D$ 

188 D=VAL(D$) 

194 ON D GOSUB 220, 246, 2560 

200 H=2-ABSCH-1) 

214 G0TO 1:3 


244 GOSUB 2Zz0 
250 Y=Y+1 
26% RETURN 
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«Tabelas» 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: jogo de destreza. 
Dificuldade do jogo: média. 


O JOGO: 

Utiliza a ideia da simulação de um bilhar. 

De um lado e outro do écran encontram-se a bola e o alvo a visar; 
uma série de algarismos e letras, no alto do écran, permitem escolher o 
local onde se quer fazer tabela. 

A bola vai então partir para o alto do écran, fazer tabela nesse si- 
tio, eventualmente volta a bater em baixo, ressalta, e assim por diante 
até atingir a linha de chegada; se o fizer suficientemente perto do alvo, 
teremos ganho e será impresso o número de tabelas. 


O PROGRAMA: 

A linha 60 imprime os algarismos e as letras no alto do écran. 

As linhas 70 e 80 definem as posições iniciais da bola e do alvo. 

As linhas 100 e 110 efectuam a sua impressão. 

O símbolo corresponde à direcção escolhida é feito entrar na li- 
“nha 120. 

O ciclo J (180-220) realiza a deslocação da bola. 

A linha 210 imprime a nova posição. 

A mudança de direcção, aquando do encontro com uma tabela, é 
efectuada pela linha 220. 

A linha 240 imprime o texto de fim de partida. 

O número de tabelas é contado na linha 200. 


PARA JOGAR: 

Faz-se correr o programa teclando RUN. 

O campo de jogo é impresso no écran, assim como as posições ini- 
ciais da bola e do alvo. Escolhe-se o local onde se quer fazer tabela 
com a bola de (1 a Z), e faz-se ENTER. 

A trajectória é então impressa, seguida (se for caso disso) da men- 
sagem BRAVO! X TABELAS. 

Pode-se começar outra partida premindo uma tecla qualquer, e 
parar em qualquer momento teclando ESC duas vezes. 
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EXTENSÕES POSSÍVEIS: 


Será interessante, utilizando um grafismo mais apurado, desenhar 
um verdadeiro bilhar, com o seu pano verde, e indicar a direcção por 
um segmento de recta, simbolizando o taco do bilhar, deslocando-se 
em redor da bola de bilhar. Podem também ser acrescentados buracos, 
usar várias bolas, sonorizar as tabelas ou os choques com outras bolas, 
contabilizá-los para fazer uma partida com vários jogadores, etc. 


19 REM “TABELAS” 
2% RANDOMIZECTIME) 
30 DEFINT X,Y 
40 INK O,9: INK 3,3 
so CLS 
60 PRINT ” 01234567589ABCDEFGHI JKLMNOFQR 
STUVWXyYZ” 
70 X=4+RNDXK1B 
89 Y=2+RNDX18 
96 FEN 3 
160 LOCATE 1,X:PRINT CHR$C164) 
e LOCATE 49, YÍPRINT "9" 
120 PEN T:LOCATE 1, 25: INFUT “A SUA JOGAD 
E R$: PEN 3 
130 R$=UPPERCR$) 
140 V=3+ASCCR$EI-ASCC "PODA TECR$L=" A) 
154 “=0 
1€60 T=X 
174 DT=(2-X)/(V-1) 
180 FOR J=z TO 40 
190 T=T+DT 
200 IF T<Z OR T>25 THEN DT=-DT: T=25+23%( 
DT>0),5=S+] 
210 LOCATE J,TIFPRINT CHR$C164D; 
220 NEXT J 
2350 LOCATE 1,1% 
240 IF ABSCT-Y)<2Z THEN PRINT "ERAVO!”;S; 
"TABELAS" ;STRING$C—(S>1),"5”) 
qe INFUT “OUTRA PARTIDA (S/N)?"; R$: PEN 


260 IF R$="S" THEN RUN 
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«Jackpot» 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: azar (um jogador). 
Dificuldade do jogo: fácil. 


O JOGO: 

É uma variante simplificada de um jogo de azar clássico, no qual 
o jogador deve fazer uma entrada inicial. Se obtém determinadas com- 
binações de simbolos, ganha (mais ou menos, consoante a aposta e a 
combinação obtida). 

Aqui, os símbolos são substituídos por algarismos, e o facto de 
haver três algarismos idênticos permite ganhar. Existe mais de uma 
combinação particular que permite fazer jackpot. 


O PROGRAMA: 

O ciclo I (70-90) permite o desenho da máquina; o ciclo I (110- 
130) faz a impressão dos lugares (vazios) dos algarismos. 

A aposta far-se-á entrar na linha 150: se se aposta 0, a partida ter- 
mina (salto para a linha 350). 

As linhas 160, 180 e 200 permitem a tiragem de três algarismos, 
chamando uma rotina que se encontra na linha 330. 

O resultado é impresso pela linha 220, a seguir testado na linha 
240, e depois na linha 310, se se ganhou. 


PARA JOGAR: 

Fazer correr o programa com RUN; ao ser impressa a pergunta A 
SUA ENTRADA?, responde-se fazendo entrar um número suficiente- 
mente elevado, do qual as vossas apostas serão descontadas. 

Depois tecleia-se ENTER e faz-se entrar uma primeira aposta (di- 
ferente de 0), seguida de ENTER. 

Os três algarismos tirados são então impressos durante um breve 
instante, assim como a aposta feita e o resultado obtido (ganho ou 
perda). 

Pode-se então apostar de novo, fazer ENTER e assim por diante. 

Para terminar basta responder O à pergunta A SUA ENTRADA?. 

O restante do vosso «monte» inicial será então apresentado no 
ecran. 
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EXTENSÕES POSSÍVEIS: 


Poder-se-á encarar a hipótese de melhorar seriamente os contro- 
los, utilizar a cor e possibilidades gráficas mais elaboradas para simu- 


lar melhor um verdadeiro «Jackpot». 


18 REM “ JACKPOT” 

2% DEFINT X 

>0 RANDOMIZE (TIME) 

46 INK &,9:BORDER 9 

sa INK VOTE INK 2 16,23: INK 3,3 


70 FOR I=1 TO 5 

86 LOCATE 10,1+4:PAPER 3:FRINT STRINGS(2 
90 NEXT 1 

100 PAPER q 

Wo FOR 1=] TO 3 


126 LOCATE 14, 5+L:PRINT o” "iLOCATE 19 
1S+: PRINT R "iLOCATE 24, 5+I:PRINT ” 
130 NEXT 1 


148 LOCATE 1,14: INFUT “A SUA ENTRADA?" ;M 
159 IF M=0 THEN 350 
160 GOSUE 330 


170 A=X 

160 GOSUE 330 

194 B=X 

208 GOSUE 3:30 

“io PEN 2 

22%) LOCATE 14,7:PRINT AILOCATE 19,7:PRIN 
T B:LOCATE Z4,7:PRINT X 

230 PEN 1 

240 IF A=B AND A=X THEN 300 

259 N=-M 


26% LOCATE 7, 14:FPRINT USING “APOSTA: ak 
* | RESULTADO. HRRRROSM,N 

270 LOCATE 4,25: INFUT “CARREGUE EM <ENTE 
R> FARA CONTINUAR”; R$ 

280 P=P+N 

239% GOTO EO 

300 NoMASO 


320 GOTO 260 


360 PRINT "TEM “;P;”. ADEUS!” 
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Roleta 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: azar (vários jogadores). 
Dificuldade do jogo: fácil. 


O JOGO: 

É espectacular sobretudo pelo seu aspecto gráfico: uma bola 
desloca-se por um campo de jogo com casas numeradas de 1 a 36, as- 
sim como três casas suplementares, o 00, uma casa P (como par) e uma 
casa I (como ímpar). 

A bola passa pelo menos uma vez por cada casa e depois pára, à 
segunda volta. Pode-se fazê-la rolar de novo para outra partida. 


O PROGRAMA: 

O ciclo K (60-120) desenha o campo de jogo, ao qual a linha 130 
acrescenta os três símbolos, P, 00 e I. 

O ciclo K (150-230) realiza a deslocação da bola, sendo a paragem 
controlada pela linha 200. 

O ciclo J (linha 210) realiza uma ligeira temporização variável 
para simular a bola a começar a parar. 

A linha 210 apaga a bola, deslocando o cursor de impressão para 
a esquerda. 

A linha 240 tira a posição de paragem. 

A linha 260 origina as jogadas seguintes. 


PARA JOGAR: 

Basta fazer RUN e olhar para o écran. 

Quando a bola parar bastará premir uma tecla qualquer (excepto 
o «N») para fazer rolar de novo a bola. Premir N para sair do pro- 
grama. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á tentar de diferentes maneiras uma aproximação maior 
de uma verdadeira roleta: desenhar melhor o campo de jogo, introdu- 
zir cores, simular o retardamento da bola, introduzir diferentes possi- 
bilidades de apostar e assegurar a gestão dos ganhos correspondentes, 
manter as contas de vários jogadores e anunciar os resultados de uma 
mais usual. 
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lo REM ROLETA 

zé RANDOMIZECTIME) 

0 DEFINT X 

ay AS à,9:. BORDER 9: INK 2,26 


60 FOR K=] TO 4 

7ê FOR I=| TO 9 

0 S=1+1 

30 PRINT TAB(C4KI) (S AND k=))+(S+18 AND 
K=22+(S-] AND K=3)+(5+17 AND K=45; 

106 NEXT 1 

Ng PRINTIPRINTEPRINT:PRINT 


126 NEXT k 

136 LOCATE 1, S:PRINT "PrILOCATE 1,7:PRIN 
T “Bor iLOCATE V,TILPRINTO”I” 

146 PEN 2 


159 FOR k=] TO 4 

1€0 FOR 1=1 TO 10+(K=4) 

170 IF I=10 AND K<4 THEN LOCATE 1,4xkK EL 
SE LOCATE 4H1+1,4kkK-] 

180 PRINT CHR$(231); 

198 X=X-1 

200 IF X=6 THEN GOTO 260 

210 FOR J=1 TO 30%C1-(39/X)K0X>0)): NEXT 

JiPRINT CHR$CS9,” 

Z2ô NEXT I 

230 NEXT K 

240 X=1+RNDX39 

254 GOTO 156 

<E%à PEN Y:PAPER S:;LOCATE 1,20: INPUT “OUT 
RA JOGADA (S/N)? R$ESPAPER q 

270 IF R$="N” THEN END 

280 GOTO 50 
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Corredores 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: reflexão. 
Dificuldade do jogo: difícil. 


O JOGO: 

Apela para as noções de lógica elementar. O jogador pode apre- 
sentar-se à entrada quer do corredor número 1 quer do corredor núme- 
ro 2. Nestas duas entradas existem torniquetes que rodam à passagem 
do jogador e o deixam passar, uma vez para a direita e a vez seguinte 
para a esquerda. Além disso existe um torniquete análogo no corredor 
central. Poderá prever onde (saída A ou B) se vai efectuar a sua próxi- 
ma saída? 


O PROGRAMA: 

As linhas 30 a 140 desenham os corredores (e os três torniquetes) 
com a ajuda da rotina 360, que desloca o cursor de impressão (códigos 
ASCII 8 e 10). 

A linha 180 aguarda a sua escolha. 

A descodificação do caminho é feita pelo AMSTRAD utilizando 
três variáveis lógicas, I, J K, representando os estados dos três torni- 
quetes (linhas 210 a 350). 


PARA JOGAR: 

Depois de fazer RUN, o corredor é desenhado no écran, sendo vi- 
síveis os torniquetes, e dever-se-á teclar 1 ou 2 em resposta à pergunta 
do AMSTRAD. 

Na versão aqui apresentada, a resposta é imediatamente impressa, 
e o caminho seguido desde o início do jogo, assim como as saídas cor- 
respondentes, são mostrados no écran. Isto apresenta a vantagem de 
permitir a vários jogadores exercer a sua sagacidade tentando prever 
que vai responder o AMSTRAD a uma dada entrada. 


EXTENSÕES POSSÍVEIS: 

Serão muito numerosas: é muito fácil imaginar um corredor mais 
complexo com outras entradas e saídas, e outros torniquetes. Pode-se 
imaginar uma apresentação gráfica dos resultados desenhando, duran- 
te um breve instante, o estado dos torniquetes após a resposta do joga- 
dor. Pode-se também acrescentar um teste de resposta (jogo com vá- 
rios jogadores), descontar os pontos de cada jogador, etc. 
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13 REM CORREDORES 

24 CLS 

6 PRINT STRING$(40,154) 

4% PRINT 

564 FRINT “E”; SPACESCE);STRING$CZE, 154);S 
PACE$CE), 2” 

£&% PRINT 

76 PRINT STRING$CI4, 154); SPACESCIZI;STRI 
NG$(14,154) 

8% PRINT 

96 PRINT “A”;SPACESCE); STRINGSCZE, 154335 
PACESCE);"1" 

180 PRINT 

FRINT STRING$(40,154) 

1 PEN S:LOCATE 3:3,:3: GOSUE :360 
1 LOCATE 14,6: GOSUE SEG 
1 LOCATE 3,9: GOSUB 360 
1 I=6. J=0,k=6 

1 R$g=" “u é Tg=" ” 

1 FEN 2 

| LOCATE 1,17:FRINT CHR$C0189;: INPUT “E 
alba 1 OU 2: ";C$ 
( 

2 


S 


ns 


CMN (Or 
SODOS O 


94 IF C$="" OR Cgo="5" OR €$<"1” OR LEN 
C$)<>1 THEN 150 

00 R$=R$+C$ 

210 PRINT :PRINT R$ 

220 IF C$="]" THEN 270 

230 J=NOTCJ) 

240 IF J<x>20 THEN 330 

250 Sg="B" 

260 GOTO 306 

278 I=NOTCI) 

260 IF 14260 THEN 330 

290 Sé="A” 

200 Te=TÊ+S$ 

310 LOCATE 1, 2): PRINT "SAIDA EM ";SS:PRI 
NT: PRINT T& 

320 GOTO 180 

230 K=NOTCK) 

580 IF k<20 THEN 250 

354 GOTO 290 

360 PRINT CHR$(205);” “; CHR$( 204); 

370 PRINT STRING$C2,93); CHR$CIO); CHR$C2O3 


380 PRINT STRING$CZ, E); CHR$C 10); CHR$C 204 
35” " CHR$CZOS) 
390 RETURN 
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Tabuleiro de xadrez 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: grafismo. 
Dificuldade do jogo: variável, consoante a utilização. 


O JOGO: 

O programa proposto serve de suporte ao programa «Xadrez»; 
efectivamente, dá a possibilidade de realizar uma apresentação gráfica 
de boa qualidade para jogos que utilizem um tabuleiro de 8 casas 
(poder-se-á facilmente ampliá-lo para 10 casas). Foi previsto o posicio- 
namento de letras (de A a H) horizontalmente, e, verticalmente, de nú- 
meros (de 1 a 8). 


O PROGRAMA: 

As linhas 50, 60 e 70 definem três variáveis, A$, B$ e C$, que con- 
tém os elementos de desenho. 

A linha 80 imprime as letras horizontais numa janela, com a sua 
própria cor de impressão. 

O ciclo I (90-150) permite a impressão, sendo o motivo a imprimir 
apresentado ou não consoante o valor de (1 + J)/2; a linha 120 realiza 
a impressão. 


PARA JOGAR: 
A ordem RUN provoca a apresentação do tabuleiro no écran. 
Para utilizar o programa convirá ter em conta a localização das 
casas utilizáveis, que são os centros dos quadrados negros ou cinzen- 
tos. As casas são obtidas em largura por uma tabulação da forma 3*J, 
variando J de 1 a 8, e em altura por 2*I. 


EXTENSÕES POSSÍVEIS: 


Poder-se-á utilizar este programa para qualquer espécie de jogos 
que se desenrolem num tabuleiro (xadrez, damas, etc.). 
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16 REM TABULEIRO DE XADREZ 


p=) 
30 INK 0,0: BORDER G: INK |, Z6: INK 2,2 
40 PEN K1], Z:LOCATE &1,1,1 
54 AS=STRING$C3, 140) 
EW B$E=STRING$(3,143) 
70 CE=STRING$C3,131) 
Bo PRINT 41,” AB CDEFÃaaG H*! 
PRINT RI 
99 FOR I=] TO 8 
106 FOR J=1 TO & 
No IF CI+J)/2=INTCCI+])/2) THEN 130 
120 LOCATE 3&KJ+], 2X PRINT AS:LOCATE XI 
+), 2K1+1 PRINT BS:LOCATE SkJ+), ZKI+Z: PRI 
NT C$& 
130 NEXT J 
140 PRINT &), L:PRINT É] 
150 NEXT 1 
Ig9 GOTO 160 
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Jogo da fava 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: reflexão (dois jogadores). 
Dificuldade do jogo: média. 


O JOGO: 

Apresentando uma certa analogia com o «Jogo de Wytthof», esta 
versão oferece de facto quatro possibilidades de deslocação; aqui, a 
posição de partida é fixa (0,0) e poderá eventualmente ser modificada. 

As direcções de deslocação disponíveis são: direita, baixo, diago- 
nal baixo e direita, diagonal alto e direita. 

Em princípio joga-se com a regra: ganha o primeiro a chegar 
a (9,9). 


O PROGRAMA: 
A linha 60 e o ciclo I (70-90) desenham o campo de jogo. 
A linha 130 realiza o teste de fim de partida. 
A linha 180 permite executar uma das rotinas de deslocação. 
Cada jogador dispõe de uma janela de impressão com uma cor, 
janela que é sobreposta ao desenho do campo de jogo. 
A linha 140 assegura a mudança de jogador. 


PARA JOGAR: 

Faz-se correr o programa com RUN e o campo de jogo é apresen- 
tado, assim como a pergunta DIRECCAO (1, 2, 3, 4)?; as quatro di- 
recções propostas correspondem às seguintes deslocações: 


| o 4 , 
O jogador 1 faz entrar a sua deslocação e tecleia ENTER. 
O movimento correspondente é realizado e depois obtém-se a im- 
pressão das mensagens JOGADOR 2 e DIRECCAO. 


O jogador 2 procede do mesmo modo e assim por diante, até que 
um dos jogadores chegue a (9,9), caso em que o jogo terminará. 
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EXTENSÕES POSSÍVEIS: 


Pode-se imaginar a introdução, no começo da partida, de casas- 
-armadilhas (tentando então cada um fazer o outro ir para uma dessas 


casas). 


Pode-se também jogar com diversos simbolos, se possível de cores 
diferentes, deslocados simultaneamente, encarar a hipótese de campos 


de jogo triangulares, de dimensões arbitrárias, etc. 


lo REM JOGO DA FAVA 
20 DEFINT 1,X,Y 


INK 1,9: INK 2,15: INK 3,3 
PEN 42,1 
NT” 1 2 3 4 5 6 
7 8 
76 FOR 1 9 
Bo PRINT: PRINT I,* 
90 NEXT 1 
189 e Y=] 
o J= 
Lo LOCATE RJ, SHX+HE, 2XY+ TE PRINT RJ, CHR$C 
>48+5) 
130 IF X=9 AND Y=9 THEN Zzã0 
140 J=1+] MOD 2 
1590 LOCATE RJ,1,23:PRINT CHR$CZOD; 
160 PRINT HJ," JOGADOR “;J;"- DIRECCAO (1 
2; CHR$C241)5”, 2" ICHRSCZOSD!”, 3”; CHR$CE 
4325”, 4", CHR$C204) "DPS INPUT RJ,” IS 
170 I=VALCIS) 
180 ON I GOSUE Z20, 240, 250,276 
1994 GOTO 128 
eo LOCATE RJ,1, 23: PRINT 8J,”0 JOGADOR * 
JS,” GANHOU... di 
16 GOTO 210 
20 Y=Y+] 
230 RETURN 
a GOSUE 220 


pra Y 
29804 RETURN 
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Jogo da glória aleatório 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: azar (dois jogadores). 
Dificuldade do jogo: fácil. 


O JOGO: 

O jogo retoma a antiquíssima ideia do jogo da glória mas acres- 
centando-lhe a possibilidade oferecida pelo computador de escolher ao 
acaso as casas «com problemas». 

A regra do jogo não tem grande interesse, porque os jogadores 
não intervêm em qualquer momento no desenrolar da partida, que é 
completamente gerida pelo AMSTRAD; bastará premir qualquer tecla 
após cada lançamento de dado e observar o que se passa. 


O PROGRAMA: 

A linha 80 permite chamar a rotina 280 a 230, que realiza o con- 
trolo da posição dos jogadores e a apresentação dessa posição. Esta 
apresentação será, aliás, refeita no decorrer da partida, para tomar em 
consideração a deslocação realmente efectuada (que não é necessaria- 
mente a indicada pelo dado). 

A linha 90 ocupa-se da mudança de jogador, e a linha 100 efectua 
o lançamento do dado. 

A linha 370 trata do caso em que um dos jogadores termina. 

A linha 140 tira um número aleatório entre O e 3, que servirá (se 
for o caso) para determinar a verdadeira deslocação do jogador, reme- 
tendo para uma das rotinas de «chance». 

As linhas 280 e 290 fazem avançar as peças, e as linhas 300 a 350 
redesenham inteiramente o campo de jogo, a cada apresentação. 


PARA JOGAR: 

Inicia-se o jogo com RUN. O campo de jogo é então desenhado e 
depois vê-se aparecer a mensagem JOGADOR I:... 

Deve então premir-se qualquer tecla para que seja tomada em 
conta a jogada do jogador número 1; não se inquiete com o tempo de 
reacção, que poderá parecer um pouco longo. 

A deslocação indicada pelos dados será executada; depois, ao 
cabo de algum tempo, será eventualmente efectuada uma segunda des- 
locação: é a deslocação «CHANCE». Obter-se-á então a mensagem 
JOGADOR: ... 
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O jogador 2 prime por sua vez uma tecla qualquer, e assim por 


diante... 


O jogador que ganha será assinalado por uma mensagem BRAVO 


no fim da partida. 


Pode também parar em qualquer momento teclando ESC duas ve- 


Zes. 


EXTENSÕES POSSÍVEIS: 


Pode-se aumentar o campo de jogo, introduzir mais acasos, mu- 
dar a natureza deles. Poder-se-ia também escolher as casas «CHAN- 
CE» no início do jogo, acrescentar apresentações gráficas de acordo 


com isso, etc. 


19 REM JOGO DA GLORIA ALEATORIO 
20 DEFINT L,J,X,Y 
30 RANDOMIZECTIME) 


40 INK Q,3: INK 1,6: INK 2 “INK 3,11 
124 CLS 
o J= 
LOCATE VS PRINT ” 0123456789ABCDEFG 
ALIRLMNDFQRETUVUX VE! 


80 GOSUB 286 

99 J=1+] MOD 2 

100 1=1+RNDk5 

Wo FEN J+1 PRINT CHR$C7); :LOCATE S,14:P 
RINT "JOGADOR “;J;”- A SUA JOGADA: tv; 
120 PRINT TAB(10) "CARREGUE EM <ENTERD” ; 
CHR$C 20); : INPUT “º, R$ 

1390 GOSUE 280 

149 I=RNDk3 

154 F=1+RNDX4 

160 ON F GOSUE 180, 200, 226, ZE0, 250 

170 GOTO SO 


250 RETURN 

ZE0 IF J=1 THEN X=RNDX30 ELSE Y=RNDX30 
270 RETURN 

Ea IF J=1 THEN X=X+IXCCX+TIX=3BIKCCK+TI) 
»=0) 

E Rad J=2 THEN Y=Y+IXCCV+ID<=35)KCCY+I) 
»= 

300 FOR I=0 TO 35 

310 LOCATE 3+1,S:PRINT O! “o; 

EO nr I=X THEN LOCATE 3+1,5:FEN Z: PRINT 
330 LOCATE 3+1, 7:PRINT " "; 

au I=Y THEN LOCATE 3+1,7:PEN S:PRINT 
359 NEXT 1 

360 FOR 1=1 TO 60G:NEXT 1 

370 IF X=35 OR Y=35 THEN LOCATE 1,20:PRI 
NT "BRAVO": GOSUE 390: END 

380 RETURN 

390 SOUND 1,478: SOUND 1,319: SOUND 1,379 
490 RETURN 
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Nível 2 


Nome do programa 


VISÕES esses ius ia au areas ana Tãs 


O electricista maluco ........... 
A corrida ao 20 .................. 


MUSICA! ssssdarssenesiassdonidnesão da 


Espião s.iseesisiesesamasesmerirs 


Habilidade com cartas 


O indesejável ..................... 


O jogo da vida ................... 
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Temas e particularidades 


Para utilizar noutros jogos, se você 
for desonesto. 

Tiragem de um dado, com grafismo. 
Um jogo com as palavras, no compu- 
tador. 

Uma simulação simplificada, vários 
jogadores. 

Lógico e difícil, para um só jogador. 
Jogo de reflexão, para dois jogadores 
ou mais. 

Reveja as suas lições de solfejo, gra- 
ças ao computador. 

Uma base de partida para afinar o 
seu programa. 

Um jogo de reflexão, para dois joga- 
dores. 

Um jogo com palavras, muito sim- 
ples. 

Deixe o computador criar vocábulos 
novos. 

Diga-lhe que a ama — em código. 
Ganhe sem problemas, na próxima 
tiragem. 

Reveja os seus conhecimentos de es- 
tatística. 

Um jogo de lógica para dois jogado- 
res, numa versão alargada. 

Fazer música é, antes de mais, 
escrevê-la... 

Aproveite para fazer o ponto dos ani- 
versários. 

O seu computador tem mais de um 
truque no saco. 

Você é proprietário. Conseguirá pôr 
as mãos neste locatário indesejável? 
Um grande clássico, em duas versões: 
manual e automática. 


Dimensionamento 

de um quadro. 

Busca de um elemento 
num quadro 

e numa cadeia. 

A instrução DATA 


A INSTRUÇÃO DIM OU INSTRUÇÃO DE DIMENSIONAMENTO 
DE UM QUADRO 


As estruturas de quadros são correntemente utilizadas em progra- 
mação, revelando-se mesmo indispensáveis num grande número de ca- 
sos. Se, por exemplo, você quiser fazer entrar as suas receitas e despe- 
sas para todos os dias do mês (suporemos, para simplificar, meses de 
trinta dias) poderia definir trinta variáveis chamadas PRIMEIRO 
DIA, SEGUNDO DIA, etc. É mais fácil e mais racional utilizar um ci- 
clo I, com I a variar de 1 a 30, e uma variável R(I) para as receitas e 
outra variável D(I) para as despesas. Agindo assim, você teria, sem o 
saber, utilizado uma estrutura de quadro a uma dimensão; isto só po- 
derá ser admitido no AMSTRAD se você previamente tiver prevenido 
que irá utilizar um tal quadro, dando uma instrução DIM R(30) para 
as receitas e DIM D(30) para as despesas. 


Poder-se-ia também imaginar conservar despesas e receitas num 
mesmo quadro, dando-lhe desta vez duas dimensões; por exemplo, 
DIM RD(30,2) [ou DIM RD(2,30)]. Assim, com DIM RD(30,2) poder- 
-se-à convencionar que RD(I,1) representa as receitas e RD(I,2) as des- 
pesas. São também possíveis quadros de mais que duas dimensões. 

Podem também conceber-se quadros cujos elementos são cadeias 
de caracteres, e já não números, com o máximo de 255 caracteres. 

Assim, DIM NOMES$(12) reserva doze posições na memória para 
palavras com o máximo de 255 caracteres. 

No AMSTRAD não é obrigatório dimensionar um quadro que 
contenha menos de dez elementos. 
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A BUSCA DE UM ELEMENTO NUM QUADRO: R(l) 


Se tivermos um quadro a uma dimensão, numérico ou alfanuméri- 
co, definido por uma instrução como DIM R(30) ou DIM N$(20), o 
elemento de ordem I deste quadro é determinado por R(I) [ou N$(D]; 
será então manipulado exactamente como uma variável ordinária (atri- 
buição, cálculo, testes, etc.). 

Assim, INPUT R(3) permite fazer entrar manualmente o valor do 
terceiro elemento numérico do quadro R. PRINT R$(5) permite a 
apresentação do quinto elemento do quadro alfanumérico R$, etc. 


A BUSCA DE UM ELEMENTO NUMA CADEIA: MID$ 


Para extrair o elemento de ordem I da cadeia alfanumérica A$ 
utilizar-se-á a instrução MIDS. 

Assim, se A$=«BOM DIA», MIDS$(A$,3,1) dá-nos a letra M; 
além disso, MIDS$S(A$,3,3) dá-nos a subcadeia «M D». 


O TRATAMENTO DE DADOS MÚLTIPLOS. 
INSTRUÇÃO READ, DATA, RESTORE 


Para encher facilmente um quadro, numérico ou alfanumérico, 
será interessante utilizar linhas de DATA, que contém os dados inscri- 
tos uns a seguir aos outros, separados por uma vírgula. 

Assim, poder-se-á escrever: 


DATA VIEGAS,JULIO,13,Rua Madressilva... 
Estes dados podem ser lidos em ciclos FOR... NEXT por inter- 


médio da instrução READ. Pode-se recomeçar a leitura no início dos 
DATA, com a ajuda da instrução RESTORE. 
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Dado viciado 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: lançamento de dados. 
Dificuldade do jogo: fácil. 


O JOGO: 

Queremos fabricar um dado viciado segundo as nossas próprias 
conveniências. O método aqui proposto consiste em definir à partida 
uma probabilidade de realização para cada tipo de tiragem (ou seja, a 
possibilidade de tirar um 1, um 2, um 3, etc., de cada uma destas pro- 
babilidades estar compreendida entre O e 1, e de a soma de todas as 
probabilidades ser um número muito próximo de 1). 


O PROGRAMA: 

Utiliza o gerador de números aleatórios do AMSTRAD, que se 
supõe ter a qualidade conveniente (poder-se-á facilmente utilizar qual- 
quer outro gerador, se for necessário). O ciclo I (60-130) ocupa-se da 
entrada de cada uma das probabilidades, com verificação em cada en- 
trada e no total (linha 100); cada probabilidade é conservada numa va- 

“riável E(I): linha 80 do programa. 

O lançamento do dado é efectuado com a ajuda de um outro ciclo 
I (180-200), e a linha que permite a batota é a 190. 

Pode fazer-se nova tiragem premindo uma tecla (linha 220). 


PARA JOGAR: 

Depois de se fazer correr o programa com RUN obtém-se a apre- 
sentação da pergunta PROBABILIDADE DE SAIR 1º, à qual se deve 
responder com um número entre O e 1. Convém não esquecer que o 
total de todas as probabilidades entradas não deverá em caso algum 
ultrapassar 1.1 (tolerância de 0.1). 

Poderão surgir mensagens de erro e o programa será eventualmen- 
te reiniciado. Quando todas as probabilidades tiverem sido definidas 
será automaticamente efectuada a primeira tiragem e bastará premir 
qualquer tecla para fazer as tiragens seguintes. Pára-se o programa te- 
clando ESC duas vezes. 


EXTENSÕES POSSÍVEIS: 
Será, evidentemente, muito tentador utilizar sorrateiramente este 
pequeno programa para melhorar as suas probabilidades de ganhar 


AV.MI-S 65 


num jogo de azar que utilize lançamentos de dados. Poder-se-á então 
encarar a ideia de «congelar» os dados definindo o dado viciado numa 
variável A$, etc. Poder-se-á também pensar em apresentar os resulta- 
dos correspondentes a uma série de lançamentos de dados de forma es- 
pectacular, que põe em evidência a batota... 


19 REM DADO VICIADO 

24 DEFINT N 

30 RANDOMIZECTIME) 

4% CLS 

So DIM Ec6) 

6% FOR I=1 TO 6 

70 LOCATE 25,3: PRINT CHR$C1 
B0 LOCATE 1,3:FRINT “PROBAB 
IR “5 Is: INPUT "PP,ECI) 

94 F=P+ECI) 

168 IF ECI)d<0 OR Ec1I)>1 OR P>1.1 THEN 24 


116 LOCATE €XI-3,16:PRINT "DADO “;1 

122 LOCATE GHI-3, IZ:PRINT Ecl) 

138 NEXT 1 

149 IF F<6.9 THEN PRINT CHR$C7);: RUN 

158 LOCATE 1,:3:PRINT CHR$C1B); 

166 FOR 1=1 TO SOG:NEXT 1 

1780 N=1+RND&S 

186 FOR. I=1 TO 6 

199 IF N=I AND RND2ECI) THEN 170 

200 NEXT 1 

210 LOCATE 15,17:FPAPER Z:PEN 3:PRINT "TI 
RAGEM: “;N; :PAPER O:FEN 1:GOSUB 299 

220 LOCATE 3,25: INPUT "CARREGUE EM <ENTE 
R> PARA OUTRA TIRAGEM”, R$ 

230 GOTO 176 

240 LOCATE 10, Z5:FAPER S:PRINT CHR$C7);” 
IMPOSSIVEL: 0a=P<=1"; PAPER OQ 

2504 F=P-ECI) 

260 FOR J=1 TO 1500:NEXT J 

270 LOCATE 16, Z5: PRINT STRING$C19,32); 
280 GOTO 78 

294 SOUND 1,478, 26: SOUND 1,319, 26: SOUND 
1,:379, 20: RETURN 


32; 
ILIDADE DE SA 
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Um dado 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: tiragem de um dado (com grafismo). 
Dificuldade do jogo: nenhuma. 


O JOGO: 

O programa propõe simplesmente o lançamento de um dado alea- 
tório e a sua representação em grande formato. 

Poderá facilmente ser utilizado como rotina, ou subprograma, em 
qualquer tipo de jogo que utilize o lançamento de um ou mais dados. 


O PROGRAMA: 

A linha 50 utiliza o gerador de números aleatórios do AMSTRAD 
para tirar um número de 1 a 6. 

O ciclo J (70-90) desenha os bordos do dado. 

As linhas 120 a 170 são utilizadas para desenhar os pontos. 

As linhas 180 e 190 permitirão, se for o caso, refazer uma tiragem. 


PARA JOGAR: 

Fazer correr o programa com RUN. 

Faz-se entrar um número inteiro para inicializar o gerador e será 
apresentado um dado, a cores e em formato grande. 

À pergunta: OUTRA TIRAGEM (S/N)? responde-se S para vol- 
tar a lançar o dado. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á introduzir uma pequena melodia para enfeitar cada 
lançamento, fazer desfilar os pontos como se o dado rolasse sobre uma 
mesa, etc. 
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12 REM UM DADO 
2o Sd dd 


4o C=INTCRNDXZ73: INK 1,C+(C0=1) 

59 A=INTCRNDX6+]) 

60 LOCATE 12,5: PRINT CHR$C 150); STRING$CI 
1,154); CHR$( 156) 

70 FOR Jz=60 TO 10 

BO LOCATE 12,6+J:FRINT CHR$ECIAS):LOCATE 

24 ,6+]J: PRINT CHR$ÉCIAS) 

90 NEXT J 

100 LOCATE 12,17: PRINT CHR$C147); STRING& 
(11,154); CHR$CIS3) 

Wo RESTORE 1966:FOR I=1 TO S:;READ N:SOU 
ND Y,NINEXT I 

De ne A<»1 THEN LOCATE 15, 86: PRINT CHR$C 
add A>=4 THEN LOCATE Z1,S: PRINT CHR$C 
140 IF A=6 THEN LOCATE 15, IN: PRINT CHR$C 
Z3I) !LOCATE 21, IV:PRINT CHR$C231) 

156 IF A MOD Z THEN LOCATE 18, )1: PRINT C 
HR$&( 231) 

RES Ar=4 THEN LOCATE 15, 14: PRINT CHR$ 
(23 

Re A<>1 THEN LOCATE 21,14: PRINT CHR$ 
(es 

180 PEN Z:LOCATE 1,25: INFUT "OUTRA TIRAG 
EM (S/NDPVIR$ 

199 IF UFPER$&CLEFT&CR$,1))="8"” THEN FEN 

V:GOTO 36 

1600 DATA 47E,319,379 
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Visões 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: desenho. 
Dificuldade do jogo: fácil. 


O JOGO: 

O AMSTRAD permite-lhe, pela primeira vez, entrar na sua inti- 
midade, deixando-lhe entrever a sua própria representação do mundo! 
Efectivamente, você irá propor-lhe palavras, não importa quais, e ele 
vai responder-lhe propondo-lhe uma representação gráfica do que es- 
sas palavras representam para ele. O jogo será muito mais divertido se 
praticado em grupo, e por vezes poderá haver surpresas. 


O PROGRAMA: 

Um ciclo I (40-120) encarrega-se de realizar os desenhos. 

A linha 50 permite transformar em número cada letra da palavra 
que inicialmente se faz entrar (linha 30). Este número será então tradu- 
zido para a base 2 por um ciclo J (linhas 60 a 110); consoante o resulta- 
do desta transformação, será ou não impresso um ponto (linha 90). 


PARA JOGAR: 

Começa-se a execução com RUN, o que conduz à apresentação da 
pergunta QUE DESENHO?. Responde-se fazendo entrar uma palavra 
qualquer, que será transformada pelo AMSTRAD depois de se fazer 
ENTER. 

Para recomeçar basta carregar em qualquer tecla; para terminar, 
carregar em ESC duas vezes. 


EXTENSÕES POSSÍVEIS: 

A mesma ideia pode ser retomada introduzindo elementos de si- 
metria nos desenhos, ou usando várias cores. Pode-se também imagi- 
nar codificar por este meio um certo número de desenhos, que serão 
introduzidos na máquina quando quisermos e pode-se então criar um 
jogo em que o AMSTRAD se tornará cada vez mais sábio. Pode-se 
também realizar um jogo para dois jogadores em que o AMSTRAD 
lhe pede que encontre a palavra correspondente a um certo desenho, 
etc. 
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10 REM VISÕES 


CLS 
sé INPUT “QUE DESENHO? “5 R$ 
49 FOR I=] TO LENCR$) 
5y N=9KASCCMID$ECRE, 1, 1))-346 
E J=] 
S=N/2-INTON/ã2o 
EM N=INTCN/2) 
IF S<>6 THEN LOCATE J+1E, I+B:PAFER Z: 
PRINT ” “.PAFER O 
108 J=]J+1 
We IF JXo THEN 76 
126 NEXT 1 
Sa dad 11, 25: INPUT "CARREGUE EM <ENT 
140 F=INTCRND&27):F=F+CF=]9: INK 2,F 
1590 GOTO 29 
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421 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: lançamento de dados. 
Dificuldade do jogo: média. 


O JOGO: 

Cada um dos jogadores deverá, à vez, lançar três dados e pode de- 
pois escolher, nas duas jogadas seguintes, se deseja ou não voltar a 
lançar um, dois ou três dados. Marca então uma pontuação correspon- 
dente ao número indicado pelos dados, de acordo com as regras esco- 
lhidas, e o jogador seguinte procede da mesma maneira. 


O PROGRAMA: 

Antes de mais faz-se entrar o número de jogadores, na linha 40. 

A linha 130 imprime o número do jogador e o número de tentati- 
vas já efectuadas. 

As novas tiragens são efectuadas pelas linhas 1000, 2000 e 3000. 

A variável R$ gera as segundas e terceiras tiragens. A impressão 
do resultado é realizado, em qualquer caso, pelas linhas 140-150. 

Os testes para o número de tentativas e para a mudança de joga- 
dor são efectuados nas linhas 260 e 280. 


PARA JOGAR: 

O programa é posto a funcionar com RUN, o que leva à apresen- 
tação da mensagem NUMERO DE JOGADORES?. Faz-se entrar o 
número de jogadores, seguido de ENTER. O ecran é limpo e surge a 
mensagem JOGADOR NUMERO 1. TENTATIVA K, PARTIDA P, 
assim como a tiragem realizada e os nomes dos dados (A, B, €). 

Se não se deseja refazer a tiragem basta premir ENTER. A mão 
passa então ao jogador seguinte. 

Para efectuar outra tiragem basta teclar o nome do dado ou dados 
a retirar e fazer ENTER; por exemplo, para retirar A e C tecleia-se AC 
seguido de ENTER. 


EXTENSÕES POSSÍVEIS: 

A mais evidente consiste em assegurar a gestão dos resultados dos 
jogadores, tomando como referência as regras usuais do jogo do 421. 
Poder-se-á pensar na impressão de um quadro, após cada mão, recapi- 
tulando os resultados dos jogadores. 
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Poder-se-á também melhorar a apresentação dos dados (tomar 
como referência os diversos programas de apresentação de dados que 
se encontram nesta mesma obra). 


19 REM 421 

2é RANDOMIZE(TIME) 

o INK 0,0 

4% Fa "NUMERO DE JOGADORES?";N 


90 R$=" ABC” 

1690 GOTO 206 

Ne kK=k+] 

120 LOCATE 17, Y:PEN 3:PAPER T:PRINT "-42 
1-2. PAPER Q 

136 INK 2,2+1 MOD ZE:FEN Z:;LOCATE 1,4:FR 
INT “JOGADOR NUMERO “;1;”. TENTATIVA “;K 
5". PARTIDA “;F 

146 LOCATE 7,7:FRINT ASLOCATE 17,7:FRINT 
BILOCATE 27, 7:PRINT C:;FEN 

150 LOCATE S,S:FRINT “A”:LOCATE 18,S:FRI 

NT “EB”. LOCATE 28, 9:PRINT ºC” 

160 R$="" LOCATE 7,14: PRINT CHR$CZO); 
170 LOCATE 1,14: INFUT “ABC: "R$ 

180 IF R$="” THEN 276 

199 R$=R$+" DDD” 

200 FOR J=1 TO 3 

210 GOSUE 49000 

220 X$=MID$CR$,J,1) 

230 X=ASCCX$)-EM: IF X<0 THEN X=4 

240 ON X GOSUE 1000, 2000, 3000 

250 NEXT J 

260 IF K<3 THEN 110 

270 I=1+] 

286 IF I<zN THEN 76 

£90 ' P=P+] 

300 GOTO €0 

19900 A=D 

1616 RETURN 

2000 BE=D 

2010 RETURN 

3000 C=D 

3010 RETURN 

4000 D=]+INTCRNDXE ) 

4016 RETURN 


O electricista maluco 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria do jogo: solitário. 
Dificuldade do jogo: bastante difícil. 


O JOGO: 

No écran aparece um prédio com dez janelas, numeradas de O a 9. 
O jogador deverá, a cada tentativa, manobrar um dos interruptores, 
indicando o seu número (de O a 9). 

Em princípio a janela correspondente deverá apagar-se, mas é 
também possível que uma outra se acenda (ou se apague). Trata-se, 
claro, de obter a extinção das dez janelas com o menor número possi- 
vel de tentativas. 


O PROGRAMA: 

Um quadro A, na linha 30, conterá o estado das dez janelas (acesa 
ou apagada). : 

O ciclo I (50-70) e o outro ciclo I (90-140) desenham o prédio no 
seu estado inicial. 

A linha 150 verifica se tudo está apagado, caso em que irá à linha 
250 para imprimir o número de tentativas. 

A linha 160 aguarda a indicação do interruptor que se quer uti- 
lizar. 

As linhas 170 a 230 definem o resultado da manobra. 


PARA JOGAR: 

RUN provoca a apresentação do prédio com todas as janelas ilu- 
minadas. 

À pergunta INTERRUPTOR NUMERO? responde-se indicando 
o número do interruptor a manobrar, seguido de ENTER. 

O resultado da manobra é então mostrado no écran (janelas 
acendem-se ou apagam-se). 

Prossegue-se até que todas as janelas estejam apagadas, e obtém- 
-se então a apresentação, no écran, do número de tentativas realizadas. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á pensar num grafismo muito melhorado, com a possível 
utilização da cor. Poder-se-á também definir um jogo para dois joga- 
dores, aumentar o número de janelas, modificar a fórmula que define 
se acende ou se apaga... 
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1ô REM O ELECTRICISTA MALUCO 

2é RANDOMIZECTIME) 

so DIM ACID) 

aw CLS 

sao FOR I=1 TO 

&Y PAPER 2: LOCATE 16, ISFRINT STRING$C2I, 
22): PAPER OQ 

76 NEXT 1 

E T=0 

34 FOR I=1 TO 10 

log T=T+ACI) 

Ng LOCATE 2ZXKI+9, 4: PRINT? + 

128 IF ACId=0 THEN LOCATE 241+9, 4: PRINT 
CHR$CZL4) 

ig PAPER 2Z:FEN G:LOCATE 2H1+5, 6:PRINT 1 
-1:FPAFER G:FEN 1 

140 NEXT 1 

159 IF T=10 THEN 250 

1690 FEN Z:LOCATE 1,14:PRINT CHR$C(7)2;CHR$ 
C20);: INPUT “ INTERRUPTOR NUMERO? “;N:PEN 


1 
1728 N=N+1 
180 M=M+] 
1984 ACN2=1-ACN 
200 R= TANCRND+N/RND-N)-SINCRND/N)+336451 


216 Na o en a 

22ô IF N=0 THEN N=INTCRNDX]0+1) 

220 IF ACN)=1 THEN ACNI=O: GOTO 200 

24% ACN)=] GOTO BO 

250 LOCATE 1,14: PRINT "CONSEGUIU EM "5;M; 
" TENTATIVAS 


74 


A corrida ao 20 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: lógica (dois jogadores, ou mais). 
Dificuldade do jogo: média. 


O JOGO: 

É possível imaginar diversas regras para este jogo; aqui usamos 
apenas a regra usual para dois jogadores, que faz dele um jogo aparen- 
tado com os jogos de deslocação, ou de fósforos: quatro grupos de 
vinte estrelas vão aparecer no início da partida, e cada jogador pode 
retirar quantas estrelas quiser — mas apenas de um grupo de cada vez. 
Perde aquele que retira a última estrela. 


O PROGRAMA: 

O ciclo I (30-50) desenha quatro filas de vinte estrelas. 

A variável F, dimensionada na linha 80, servirá para registar o nú- 
mero de estrelas retirado de cada fila. 

A variável T conterá o número total de estrelas retiradas (li- 
nha 70). 

A linha 140 controla se restam estrelas suficientes na linha indi- 
cada. 

O ciclo J (150-180) apaga as estrelas; a linha 220 testa o fim da 
partida. 


PARA JOGAR: 

Fazer correr o programa com RUN; o campo de jogo é apresenta- 
do, seguido das inscrições JOGADOR 1 e LINHA, depois CASAS. 
Responde-se fazendo entrar um número de linha (entre 1 e 4) seguido 
de ENTER, e o número de estrelas a retirar seguido de ENTER. As es- 
trelas são então suprimidas e passa à vez do segundo jogador. 

A partida termina, quando a última estrela tiver sido retirada, 
com a apresentação do número do jogador que ganha. 


EXTENSÕES POSSÍVEIS: 

Além da melhoria da qualidade do grafismo e dos controlos, 
pode-se encarar diversas variantes, modificando, se for necessário, as 
regras de início: pode-se autorizar a retirada de apenas um número ím- 
par de estrelas, ou alternar par e impar, ou tirar ao acaso o número a 
retirar, ou ainda jogar com vários jogadores... 
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12 REM A A AO 20 


20 
3) 
46 
sa 
[3,5] 
76 
Bo 


99 E= 
148 
ADOR 


S 


3 


Rs 
O- SESSS 


oe NnNRu 


o poBcEsESCEaado 


St 


CLS: PEN 

FOR I=1 To 4 

LOCATE 1, 2ZK1: PRINT IL;STRINGÉCLO, 238) 
NEXT I 


1 
Case VIS:FEN BLPRINT CHR$C20); JOG 
PRINT: INPUT “LINHA: "5; 
IF Lx«1 OR L>4 THEN 108 
PRINT: INFUT “CASAS +”;C 
IF C+F(Lor2o OR Ci=0 THEN 100 
FOR J=1 TO € 
LOCATE 24-FCL9)-3, 2KL PRINT O? “5; CHR$C 


FOR TE=1 TO 206:NEXT TE 
NEXT J 


T=T+C 
FCL)=F(L)+C 

E=1+E MOD 2 

IF T<B0 THEN 100 

LOCATE 12,25:FAPER S:FEN B:PRINT “O 


JOGADOR ",/B;” GANHOU”: SOUND 1,475:S0UND 


1, 
240 
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319: SOUND 1,379 


GOTO 240 


Música 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo educativo. 
Dificuldade do jogo: média. 


O JOGO: 

Apresenta-se como um exercício de aprendizagem de solfejo: o 
aparelho anuncia uma nota (em clave de sol), seguida da menção 
GRAVE ou AGUDA, consoante o seu lugar na pauta. É necessário 
responder indicando em que linha a nota será impressa. 

A nota é então desenhada na pauta, seguida de uma mensagem de 
BRAVO ou PERDEU, conforme se tenha acertado ou não. 


O PROGRAMA: 

O ciclo I (60-80) desenha a pauta. Um segundo ciclo I (90-120) im- 
prime os números das linhas. 

A linha 130 define o nome das notas e a linha 140 realiza a tira- 
gem aleatória de uma nota. 

O nome da nota é calculado na linha 150 e é impresso pela linha 
160, seguido da menção GRAVE ou AGUDA, conforme o caso. 

A resposta faz-se entrar na linha 180. 

A linha 190 trata da descodificação da resposta. 

As linhas 200 a 210 desenham a nota. 

A linha 230 verifica se se ganhou ou perdeu e imprime a mensa- 
gem correspondente. 

A linha 240 permite fazer nova tentativa. 


PARA JOGAR: 

Faz-se correr o programa usando RUN. 

Obtém-se então a apresentação da pauta, assim como o nome da 
nota a colocar na pergunta NUMERO DA LINHA?. 

Responde-se fornecendo um número da linha (de 1 a E), seguido 
de ENTER. 

A nota é então desenhada na pauta e aparece no écran a mensa- 
gem BRAVO ou PERDEU, conforme o caso. 

Carrega-se numa tecla qualquer para continuar e duas vezes em 
ESC para parar. 


77 


EXTENSÕES POSSÍVEIS: 
Pode alargar-se a outra clave que não a de sol, pode-se introduzir 
cor, sons, etc. 


14 REM MUSICA 
“à DEFINT X 
30 RANDOMIZECTIME) 
42 INK O,2Z2: INK V, 7: INK 2,24: INK 3,15 
Bo CLS 
E% FOR I=1 TO 5 
76 LOCATE 4, 2K1I+4: PRINT STRINGÊCIT, 15495 
BW NEXT I 
94 FOR I=1 TO 4 
19% LOCATE 1, I+2 
No IF IX=9 THEN PRINT I ELSE PRINT” "; 
CHR$CI+55) 
12o NEXT 1 
i30 N$="SI LA SOLFA MI RE DO ” 
140 X=1+RNDK1:3 
156 T=(X-1> MOD 7 
A ae Vo IB:PRINT “NOTA “;MID$CNS, 3x 
+1,:32; 
170 IF X<=7 THEN PRINT ” AGUDA” ELSE PRI 
NT ” GRAVE” 
186 PRINT: INPUT "NUMERO DA LINHA? ";L$ 
190 L=-CASC(L$)-4B)KCL$L” 1! )-CASCCL$)-55 
JECL$P="A"3 
200 FEN S:LOCATE 16,X: PRINT CHR$C2Z2)+CHR 
EC 1) CHR$CZTT OD, CHR$CBO CHR$C 205); CHR$ECS) 
/CHR$C 195) 
210 LOCATE 16, X+I PRINT CHR$CZ11); CHR$CS 
35CHR$ECISF)ILOCATE 17, X+2: PRINT CHR$CIAS 
DACHR$(Z1 10; CHR$CELI+CHRSCO); PEN 1 

“à LOCATE 13,24 
550 PAPER 3:PEN 2: IF L=X THEN PRINT "ERA 
VO” ELSE PRINT “PERDEU”; 
240 PAPER G:PEN T:LOCATE 5,25: INPUT "CAR 
AReRe EM <ENTER» PARA CONTINUAR “;R$:GOT 

ot 
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Póquer 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo contra o AMSTRAD. 
Dificuldade do jogo: fácil. 


O JOGO: 

É uma simulação de uma partida de póquer tradicional, efectuada 
com um baralho de 32 cartas, em que o jogador terá o AMSTRAD 
como opositor. 

O jogador recebe cinco cartas, referenciadas pelos números de 1 
a 5, e poderá decidir mudar algumas cartas anunciando quais as que 
rejeita. A sua nova mão será então apresentada e passa à vez de o 
AMSTRAD jogar. 


O PROGRAMA: 

As linhas 50 e 60 definem as cartas. Uma variável N é dimensiona- 
da na linha 40, para receber dez cartas do jogador e cinco cartas do 
“AMSTRAD. 

A tiragem será efectuada por um ciclo I (80-140) e o controlo por 
um ciclo J (110-130). 

A apresentação das cartas é feita pela rotina 260-370. 

Um outro ciclo I (190-210) realiza a segunda tiragem do jogador. 
A linha 240 permite a segunda apresentação e o ciclo I (260-330), onde 
se entra directamente após essa apresentação, realizará a apresentação 
do jogo da máquina. 


PARA JOGAR: 

A ordem RUN faz correr o programa e são então afixadas as 
cinco primeiras cartas do jogador. 

À pergunta CARTAS REJEITADAS? o jogador responderá 0, se- 
guido de ENTER, se quer acabar a partida. Para jogar responderá 
simplesmente ENTER se acha que lhe serve o jogo que tem, ou fará 
entrar os números das cartas que rejeita, seguidos de ENTER. 

Por exemplo, se ele tecleia 235 e ENTER, o seu novo jogo conser- 
vará as cartas 1 e 4. Após isto o seu novo jogo é apresentado, assim co- 
mo o do AMSTRAD que, neste programa, não tem possibilidade de 
pedir novas cartas. 

Bastará depois carregar em qualquer tecla para iniciar outra par- 
tida. 
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EXTENSÕES POSSÍVEIS: 

Serão, evidentemente, muito numerosas, desde uma apresentação 
gráfica colorida das cartas até à melhoria do jogo do AMSTRAD, in- 
trodução das regras sobre as apostas e mesmo, por que não?, possibili- 
dades de bluff. 


1% REM POQUER 
2% RANDOMIZECTIME) 
30 INK O, 22: INK 1,2: INK 2,6: INK 3,0 
4% DIM NC32) 
50 V$="7 8 9 10 VADAREAS 
Ro PIE ve IRA 27)+CHR$CEZE)+CHRS$ 
76 CLS 
o FOR 1=1 TO 15 
oo Ne I)=INTCRNDES 
IF 1=1 THEN TÃO 
116 FOR J=1 TO 1-1 
126 IF NClo=NCI) THEN 96 
130 NEXT 1 
146 NEXT 1 
158 k=0:P=0 
160 LOCATE 1,12: FRINT "CARTAS REJEITADAS 


1780 GOSUVE z60 

180 IF R$="0"” THEN END 

196 FOR 1I=1 TO MINC5S,LENCR$)) 
200 NCVALCMIDECRE, 1, 1)))=NCI+5) 
210 NEXT 1 


240 GOSUE 260 

250 K=k+10 

ZE0 FOR I=1 TO 5 

270 C=INTONCI+K9/8) 

280 F=NCI+k) MOD 8 

290 R$=MID$CV$, ZHF+1,2) 

300 LOCATE 7H1=2,K+1! PRINT I 

310 LOCATE 7$1-3,K+3: PRINT R$,"4 ”; 
a OR C=2)5: PRINT MID$CCS, C+1, 


EN 
Eua LOCATE 7%1-3,K+4: PRINT STRING$CS5, 208 
3; 


230 NEXT 1 

540 IF F=] THEN F=O RETURN 

350 IF k=]0 THEN LOCATE 6,25: INPUT “CARR 
hd EM <ENTER> PARA CONTINUAR”, R$: GOTO 
ç 

360 LOCATE 18,12: INPUT R$ 

370 RETURN 
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O jogo do salta-carneiro' 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: reflexão (dois jogadores). 
Dificuldade do jogo: fácil. 


O JOGO: 

Embora a ideia seja muito simples, não será forçosamente eviden- 
te descobrir uma estratégia conveniente. Dispõe-se de três carneiros 
azuis e de três carneiros encarnados, representados por símbolos gráfi- 
cos, que ocupam oito casas; os carneiros podem deslocar-se de uma ca- 
sa para outra casa livre. Poderão ser usadas várias regras, consoante o 
vosso próprio cálculo do interesse desta ou daquela: quer obrigando os 
carneiros a colocarem-se na primeira casa disponível, eventualmente 
saltando por cima dos carneiros adversários, quer deixando-lhes a li- 
berdade de escolher a sua casa de chegada — o que pode tornar inter- 
mináveis as partidas. A escolha é sua. 


O PROGRAMA: 

O ciclo I (70-100) inicializa um quadro A(l), que contém as posi- 
ções dos carneiros. O ciclo I (120-170) desenha o campo de jogo e os 
carneiros. 

As linhas 190 e 210 ocupam-se do texto e das entradas. 

A janela &1, definida. na linha 50, serve para preservar o desenho 
do campo de jogo durante a entrada da jogada na linha 210. 

As linhas 220 e 230 controlam a validade da jogada. A mudança 
de jogador é realizada na linha 260. 


PARA JOGAR: 

Começa-se com RUN a execução do programa. Obtém-se então a 
apresentação da mensagem JOGADOR 1, que indica o número do jo- 
gador, seguido da pergunta INICIO, FIM?. 

Responde-se indicando o número da peça a deslocar, seguido de 
ENTER, depois o número da casa de chegada, seguido de ENTER. 

Realiza-se então a deslocação; depois o segundo jogador procede 
da mesma forma. Em princípio ganha aquele dos jogadores que conse- 
guir colocar os seus três carneiros lado a lado nas posições inicialmente 
ocupadas pelo adversário. 


1 Embora saute-mouton corresponda ao nosso jogo do eixo, usou-se a tradução li- 
teral por motivos que o próprio texto evidencia. (N. do T.) 
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EXTENSÕES POSSÍVEIS: 

Começar-se-á por acrescentar um controlo do jogador que ganha. 

Pode-se igualmente melhorar a apresentação desenhando verda- 
deiros carneiros, tornar o jogo mais atraente numerando-os e impondo 
uma certa ordem de chegada. 

Finalmente, poder-se-á definir uma estratégia para o computador, 
fixando as regras. 


19 REM O JOGO DO SALTA-CARNEIRO 

24 CLS 

30 INK O,S: INK 3,3 

4% DIM ACE) 

By WINDOW $1,1,40,13,13 

EO ACI)I=0:A(CE)=0 

740 FOR 1=1 TO 3 

BM ACI+])=] 

90 ACI+4)=—1 

100 NEXT 1 

No H=1 

120 FOR I=1 TO 8 

136 LOCATE 4X1,S:FEN T:FRINT 1 

149 LOCATE 4XKI+1,GIPRINT 2 * 

150 IF ACI)=] THEN LOCATE 4X1+1,6:PEN 2: 
PRINT CHR$CIESG) 

1660 IF ACI3)=-1 THEN LOCATE 4X1+1,6:FEN 3 


PRINT CHR$C191) 

176 NEXT 1 

1B0 J=1-(H=-1) 

a LOCATE 1,1717:PEN J+7 PRINT “JOGADOR * 
200 WINDOW SWAP O,1:PEN J+] 

21% INPUT “INICIO, FIM? ";D,F 

220 IF DX] OR D>E OR F<1 OR F>E THEN 210 
230 IF A(CD)s>H OR ACF)<>20 THEN 210 


2840 A(DI=O 
25% ACF )=H 


H=-H 
2706 WINDOW SWAP 1,8:GOTO 120 


Letras 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: reflexão (dois jogadores). 
Dificuldade do jogo: média. 


O JOGO: 

A regra inspira-se fortemente num jogo de letras muito conhecido 
em França, praticado nomeadamente numa emissão televisiva («Os nú- 
meros e as letras»). O AMSTRAD escolhe ao acaso um certo número 
de símbolos (vogais e consoantes) do alfabeto, e cada jogador deverá 
indicar o comprimento da palavara que conseguiu obter (o aparelho 
não verificará se a palavra é correcta!). 

Seguidamente é apresentada a pontuação total de cada jogador. 


O PROGRAMA: 

O ciclo I (90-120) escolhe no alfabeto entre sete e doze letras, em 
função da variável aleatória L, tirada na linha 60. Para evitar a exis- 
tência de demasiadas consoantes utiliza-se na linha 110 uma pequena 
astúcia, que consiste em refazer ao acaso uma tiragem no quado A$, 
que contém vogais (podemos ter mais ou menos vogais utilizando ou- 
tros RND). 

O ciclo 130-170 pergunta a cada jogador qual o comprimento da 
sua palavra. 

As linhas 180 e 190 comparam os resultados e totalizam a pontua- 
ção de cada jogador, apresentada no écran pelas linhas 200 e 210. 


PARA JOGAR: 

Inicia-se a execução do jogo com RUN. 

As letras são então apresentadas e a seguir a pergunta JOGADOR 
1. QUE COMPRIMENTO?, à qual o primeiro jogador responderá 
dando o comprimento da palavra que obteve (no entanto o outro joga- 
dor deverá verificar se a palavra é correcta); depois o segundo jogador 
fará o mesmo e a pontuação de cada jogador será então impressa no 
ecran. 

Para continuar a partida basta carregar em qualquer tecla. 

Para acabar deve-se fazer ESC duas vezes. 
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EXTENSÕES POSSÍVEIS: 

Poder-se-á, bem entendido, pensar em introduzir uma temporiza- 
ção antes de pedir as respostas aos jogadores. 

Poder-se-á também fazer entrar não somente o comprimento da 
palavra mas a própria palavra, devendo o adversário responder à per- 
gunta CORRECTO OU NAO?. 

Pode-se também alargar o jogo a mais de dois jogadores. E por 
que não tentar definir um jogo contra o AMSTRAD, ao qual se forne- 
ceria anteriormente uma lista de palavras bastante longa, de que ele 
imprimiria as letras desordenadas, eventualmente com algumas letras 
de complemento escolhidas ao acaso? 


14 REM LETRAS 
22 RANDOMIZECTIME) 
30 DEFINT L 


C 
E L=RNDH5+7 
76 Ag="AEIQUEA” 
80 LOCATE 1,6:PRINT "LETRAS 1” 
9% FOR 1=1 TO L 
ee E B+2XI1,6: PRINT CHR$CINTCRNDAZ 
+E! 
118 IF RND<6.4 THEN LOCATE E+ZXI,6:PRINT 
MID$ECAS, INTCRNDK7+1),1) 
126 NEXT 1 
138 I=] 
148 LOCATE 1,6+4X1:PEN I+1 PRINT “ JOGADO 
RMT INPUT ". QUE COMPRIMENTO: ";L:PEN 


150 IF I=1 THEN P=L 

160 I=1+] 

1728 IF 143 THEN 146 

1ão S=5+CP AND Pol) 

190 J=J+CL AND LoPo 

2vo LOCATE 1, 18: PRINT “PONTUACAO - JOGAD 
OR 1: ";:PEN 2Z:PRINT S;:PEN 1 

o PRINT "JOGADOR 2Z:"; :PEN S:PRINT J:PE 


220 LOCATE 5, 25: PAPER 3: INPUT "CARREGUE 


EM <ENTER> PARA CONTINUAR “;R$:PAPER Q 
230 GOTO BO 
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Maquinapalavra 


REFERÊNCIAS 
Dificuldade de programação: fácil. 
Categoria de jogo: jogo de azar (com palavras). 
Dificuldade do jogo: nenhuma. 


O JOGO: 

Este curtíssimo programa permite que o AMSTRAD demonstre as 
suas capacidades de manipular cadeias de caracteres: parte-se simples- 
mente de um prefixo ou de um sufixo de origem grega, que se vai jun- 
tar ao acaso; de quando em quando aparecerão, sem dúvida, palavras 
absurdas ou mesmo ligeiramente equivocas. 

Em cada tentativa é confeccionada uma nova palavra, mas é pos- 
sível obter várias vezes a mesma palavra. 


O PROGRAMA: 

Duas variáveis, A$ e B$, são dimensionadas com o comprimento 
14 nas linhas 60 e 70: uma conterá os prefixos, outra os sufixos (se 
se desejar aumentar as possibilidades bastará modificar esta limitação 
de 14). 

O ciclo I (80-100) lê as linhas DATA (180-200) que se referem aos 
prefixos seguidos dos sufixos. 

A linha 110 efectua a escolha de um prefixo ao acaso. 

A linha 120 efectua a escolha de um sufixo ao acaso. 

A palavra obtida na linha 130 é impressa no écran pela linha 140, 
e depois o processo recomeça (linha 150). 

O ciclo WHILE/WEND em 160 provoca uma espera que utiliza o 
relógio interno (TIME) do AMSTRAD. 


PARA JOGAR: 

Fazer correr o programa usando RUN. Será imediatamente im- 
pressa no écran uma palavra, depois uma nova palavra será apresenta- 
da a seguir à precedente. 

Teclar ESC duas vezes para sair do programa. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á muito facilmente aumentar a lista das palavras dispo- 
níveis. 

Poder-se-á também utilizar um procedimento análogo para con- 
feccionar frases no computador, fazê-lo inventar poemas, etc. Poder- 
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-se-á também transformar o programa inicial num jogo de sociedade 
que consistiria, por exemplo, em fazer apostas sobre a próxima pala- 
vra que vai aparecer. E confiar, eventualmente, ao AMSTRAD a ges- 
tão das apostas... 


18 REM MAQUINAFALAVRA 

2% RANDOMIZECTIME» 

30 DEFINT L,J,P 

4% MODE é 

So CLS 

Ro DIM ASCI4) 

78 DIM BSCI4) 

2) FOR I=6 TO 14 

So READ ABCI),ESCI) 

106 NEXT 1 

Ng I=RNDX14 

126 J=RNDX14 

130 CE=ABCID+ESCIT) 

149 F=1+RNDX1Z:FEN PLPRINT C& 

156 X=TIME 

166 WHILE TIME-X<106: WEND 

170 GOTO 118 

186 DATA ANDRO, CRATA, COSMO, FILO, MICRO,FO 
BO, HELIO, TROFO, SEXO, GINO, ESTEREO, MANO 
194 DATA FALEO, NAUTA, MACRO, FAGO, HIDRO, FU 
GO, ESTENO, PATA, PATO, CARDIO, OLEO, DERMO 
NE DATA MITO, ESCOPICO, HOMEO, VORO, OCTO, F 
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Espião 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: jogo de reflexão. 
Dificuldade do jogo: fácil. 


O JOGO: 

O programa pode servir simultaneamente de codificador e de des- 
codificador de mensagens secretas, seguindo um método facílimo usa- 
do neste tipo de aparelhos. 

Um pequeno gerador aleatório situado no fim do programa é uti- 
lizado para modificar de modo arbitrário cada letra da mensagem. De- 
verá ter-se o cuidado de utilizar sempre o mesmo número (núcleo) para 
começar a codificação ou a descodificação de duas mensagens idênti- 
cas. 


O PROGRAMA: 

O núcleo inicial (que será um inteiro qualquer) é feito entrar na li- 
nha 30; a mensagem faz-se entrar na linha 50. 

A linha 60 permite escolher entre as opções de codificação e de 
descodificação. 

O ciclo I (80-150) é utilizado quer para efectuar a codificação quer 
para efectuar a descodificação. 

A linha 100 chama o gerador aleatório. 

A linha 110 realiza a transposição das letras. 

As linhas 120 e 130 verificam que se permanece dentro dos limites 
permitidos. 

Os resultados serão impressos pela linha 160. 

As linhas 1000 e 1030 contêm o gerador. 


PARA JOGAR: 

Fazer correr o programa com RUN. 

Em seguida fazer entrar um inteiro N, que servirá de núcleo ao ge- 
rador (será necessário tomar nota dele, para a descodificação). 

Depois teclar a mensagem, seguida de ENTER. 

Escolher a opção € para CODIFICAR ou a opção D para DES- 
CODIFICAR, e teclar ENTER. 

A mensagem codificada ou descodificada, consoante o caso, será 
então impressa no écran. 
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EXTENSÕES POSSÍVEIS: 

Poder-se-á alargar a codificação a outros sinais além das letras do 
alfabeto, utilizar eventualmente vários geradores, introduzir na mensa- 
gem um código do ou dos números que tenham servido de geradores, 
etc. 


lo REM ESFIAO 
CLS 


>€ INPUT “ENTRE O SEU CODIGO: “;N 

4% A=1/N 

54 PRINT: INFUT “A SUA MENSAGEM: ";A$ 

E) PRINT:PRINT "DESEJA ";FEN Z:PRINT “CC 
JODIFICAR";:FEN TLFPRINTOº OU "5:FEN S:PR 
dd "CODJESCODIFICAR?" PEN TI INPUTO O”; 


R 

WAS) Ega” ” 

o FOR I=1 TO LENCA$) 

90 T=ASCCMIDECAG,I,15) 

Ivo GOSUE 1600 

No T=T-ARCCR$="C"D)-cR$="D"D) 
izô IF T>96 THEN T=T-Z6 

Vz30 IF TÍE5 THEN T=T+26 

148 Eg=B$+CHR$CTO 

154 NEXT IT 

166 FRINT:FPRINT "RESULTADO: “;:PEN C2-(R 
$="Dº )):. PRINT ES:FEN 1:END 
Iodo A=CA+PIDE 

1018 A=A-INTCA) 

Iózo A=INTCZERA+T) 

1oz0 RETURN 
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Totoloto 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: azar (vários jogadores). 
Dificuldade do jogo: fácil. 


O JOGO: 

Trata-se de realizar uma tiragem completa do totoloto, isto é, de 
obter seis números, entre 1 e 49, mais um número suplementar, todos 
diferentes, que poderão ser utilizados, por exemplo, para preencher o 
seu próximo boletim do Totoloto. 


O PROGRAMA: 

Utilizar-se-ã um quadro N(7), dimensionado na linha 40, para re- 
gistar os resultados. 

A tiragem dos números é efectuada num ciclo I (60-120), sendo 
utilizado um segundo ciclo, J (90-110), para controlar que não haja 
duas tiragens idênticas. 

A tiragem (ou a retiragem) é efectuada na linha 70. 

O ciclo I (150-180) imprime o resultado e a linha 190 imprime o 
número suplementar. 

As linhas 210 a 230 ocupam-se do caso de se querer fazer outra 
partida. 


PARA JOGAR: 

Basta teclar RUN para fazer correr o programa e obter a impres- 
são no écran de um primeiro conjunto de números. 

A pergunta OUTRA TIRAGEM (S/N)? é impressa na base do 
écran; responder-se-á S no caso de se desejar continuar. 


EXTENSÕES POSSÍVEIS: 

Pode-se imaginar um programa que possa tomar em consideração 
quer dos seus próprios resultados quer dos resultados fornecidos por 
um jogador, para melhorar a tiragem, tendo em conta a probabilidade 
de sair um dado número. 

Pode-se também encarar a possibilidade de um programa que rea- 
lize cartões para o jogo do loto tradicional, tal como é ainda corrente- 
mente praticado um pouco por toda a parte. 


89 


19 REM TOTOLOTO 
240 RANDOMIZECTIME) 


so MODE Q 
do DIM NC73 
So CLS 


go FOR I=1 TO 7 

70 NCI)=]+INTCRNDX4S) 

Bo IF I=1 THEN 126 

94 FOR J=] TO I-1 

Igo IF NCLo=NCJ) THEN 76 

Wo NEXT J 

Izo NEXT 1 

13586 LOCATE 4,6:FEN 1:FPRINT "TIRAGEM DO T 

OTOLOTO” 

146 FRINT STRING$C3," "oSSTRING$CIA,"- 

159 FOR I=1 TO & 

160 LOCATE SKI-Z,IZ:PEN S+1 

1790 PRINT NCTI) 

180 NEXT 1 

194 LOCATE 1, VIPRINT "COMPLEMENTA 
"PEN 15: T NCZ):FEN 1 

260 SOUND 1,478! SOUND 1,426: SOUND 1,379 

210 LOCATE 1,: PAPER 1:PEN O: PRINT "OUT 

RA TIRAGEM (S/N)?”:FAPER O:FEN 1 

22o AS=INKEY$: IF Ag="" THEN 220 

230 IF UFFER$CASG)="S” THEN 56 


(nz 
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Tiragem de um dado viciado 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: reflexão. 
Dificuldade do jogo: média. 


O JOGO: 

Retoma a ideia de um programa anterior («Dado viciado») numa 
aplicação estatística: fabrica-se um dado voluntariamente viciado, que 
se vai lançar um certo número de vezes, e desenha-se um quadro dos 
resultados. 


O PROGRAMA: 

As probabilidades desejadas para cada tiragem são introduzidas 
por um ciclo I (70-140), com todas as verificações de validade necessá- 
rias. O número de tiragens pedidas é introduzido na linha 160. 

O ciclo J (170-250) contabiliza as tiragens. 

O ciclo I (190-210) assegura a conformidade de cada tiragem com 
as probabilidades introduzidas no início do jogo. 

Os resultados são contabilizados na linha 220 e impressos no 
écran graças às linhas 230 e 240. 


PARA JOGAR: 

Começar a execução teclando RUN e depois, à pergunta PROBA- 
BILIDADE DO DADO 1º, introduzir um número entre O e 1. 

Fazer o mesmo para os dados 2, 3, etc., sem esquecer que o total 
das probabilidades introduzidas deverá ser cerca de 1. 

Em seguida, após a impressão da mensagem NUMERO DE TI- 
RAGENS?, introduzir-se-á um número inteiro suficientemente grande, 
seguido de ENTER. A impressão dos resultados levará tanto mais tem- 
po a aparecer quanto maior for o número inteiro introduzido. 

Os resultados são impressos sob os números das tiragens; assim, 
32.3 aparecendo sob o 1 significa que a tiragem de 1, à qual fora atri- 
buída uma probabilidade de 0.3, foi realizada 32 vezes. 


EXTENSÕES POSSÍVEIS: 

Pode-se encarar a possibilidade de melhorar a representação dos 
resultados, utilizando por exemplo um histograma ou qualquer outro 
método mais eloquente graficamente. 
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1ó 
29 


210 
PEA 
230 
240 
25) 
ZE 
AS] 
IMP 
216 
32 
NÃO) 


340 
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REM TIRAGEM DE UM DADO VICIADO 
RANDOMIZECTIME) 
INK G,2Z: INK 1,17 
DIM E(E) 
CLS 
P=y 
FOR 1=1 TO 6 
LOCATE 1,35: PRINT STRINGÊC4O, 32) 
LOCATE 1,3: PRINT “PROBABILIDADE DO DA 
“SL SANPUT ECT) 
F=P+ECI) 
IF Eclo<«ó OR EC1l)»=1 OR F>1.1 THEN 3 


LOCATE €XI-3,6:FRINT "DADO "51 
LOCATE GkI-3, B:PRINT Ecl) 

NEXT 1 

IF F<0.3 THEN RUN 

de NES "NUMERO DE TIRAGEN 
FOR J=1 TO F 

N=INTCRND&E+]) 

FOR I=1 TO 6 

IF N=1 AND RND>ECID-INTCECID) THEN 1 


NEXT 1 

ECND=ECND+] 

LOCATE EHN-1,15:PRINT N 

LOCATE ERN-3,17Z:PRINT ECN) 

NEXT J 

END 

FAFER 3:LOCATE 11,25: PRINT CHR$(C79,” 
OSSIVEL:. Ge=PLi”vi PAPER Q 

P=P-ECIS 

FOR J=1 TO 1800:NEXT J 

LOCATE 164,25: PRINT STRINGé&C2ZE, 32); 
GOTO 2% 


O jogo de Marienbad 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: lógico (dois jogadores). 
Dificuldade do jogo: média. 


O JOGO: 

Um jogo tornado célebre graças a um filme que o popularizou, 
aqui no entanto apresentado numa versão mais conforme com as suas 
origens, a saber, o jogo de Nim. 

Efectivamente é possível, no início da partida, escolher o número 
de fósforos que se quer pôr em cada monte. 

Cada jogador tem a sua vez de jogar e perde aquele que retirar o 
último fósforo. 


O PROGRAMA: 

A linha 60 dimensiona uma variável A(I) que conterá o número de 
fósforos de cada monte. 

O ciclo I (70-100) permite fazer entrar esse número. 

O ciclo I (130-160) imprime os montes. 

A linha 170 assegura a impressão do número do jogador. 

A linha 190, assim como a linha 200, controlam se a jogada é per- 
mitida. 

A linha 260 controla o fim da partida. 


PARA JOGAR: 

Faz-se correr o programa com RUN, depois faz-se entrar o núme- 
ro de montes (entre 1 e 7), seguido de ENTER. 

A seguir faz-se entrar o número de fósforos em cada monte (fazer 
em cada entrada N seguido de ENTER). Obter-se-á então a impressão 
no écran dos diferentes montes, com o número do jogador respectivo 
(1 ou 2), assim como a mensagem DE QUE MONTE?; responde-se te- 
clando o número do monte de onde se deseja retirar fósforos, seguido 
de ENTER. Obtém-se em seguida a pergunta QUANTIDADE A RE- 
TIRAR?, e responde-se indicando o número de fósforos que se deseja 
retirar do monte referido. 

Depois será a vez do segundo jogador, e jogar-se-á alternadamen- 
te até que já não haja mais fósforos disponíveis. 

No fim da partida obter-se-á a impressão no écran do número do 
jogador que ganhou. 
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EXTENSÕES POSSÍVEIS: 

Pode-se designar cada jogador pelo seu nome, fazer um grafismo 
mais elaborado, escrever um programa que permita que o AMSTRAD 
seja um dos jogadores, etc. 


Ve Era O JOGO DE MARIENEAD 

2% CLS 

36) PRINT “NUMERO DE MONTES € “z7 9?" ;1FA 
PER 3. INPUT “2”, NSPAFER 6 

4% LF N>=6 OR N<=6 THEN RUN 

BO meme 

Ro DIM ACN) 

to FOR [=] TON 

&w PRINT;FRINT "MONTE “4 LT; INFUT O “-NUMER 
O DE FOSFOROS: "5ACI) 

3) SG=S+ACIS 

tow NEXT IT 

Ne H=' 

1zê CLS 

tzo FOR I=1 TON 

144 LOCATE SHI+3, B:PAPER 1:FEN G:FRINT OU 
SING "RRERRVSACI) 

150 FAPER O:FPEN V:PRINTEFRINT "MONTE! ELO 
CATE BXKI+3, 7:PRINT II 

tg60 NEXT 1 

nda LOCATE 1, 10:FEN 1+H:PRINT "JOGADOR ” 


So PRINT: INPUT "DE QUE MONTE? ";T 
99 IF T>N THEN PRINT CHR$C7)2;:GOTO 120 
200 IF ACTi=6 THEN PRINT CHR$C7);:GOTO 1 


210 LOCATE 1,14: PRINT CHR$CZ6); INFUT "Q 
SANTIDADE A RETIRAR? "4,0 

£o IF O>JACTO) OR 0O<=0 THEN PRINT CHR$C7) 
“GOTO PEGA) 
ao ACTI=AÇTI-O 
do == 
250 H=1+H MOD & 
2604 IF S=0 THEN PRINT:IPRINT "O JOGADOR ” 
1” GANHOU.” : SOUND 1,478: SOUND 1,319:S0 
UND 1,379. END 
27% GOTO 128 
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Compõe 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: composição musical. 
Dificuldade do jogo: nenhuma, a priori. 


O JOGO: 

Trata-se, com efeito, de um programa capaz de compor música, 
de modo muito elementar, e isso de um modo completamente alea- 
tório. 

O computador vai, num primeiro tempo, desenhar uma pauta, 
depois imprime uma sucessão de notas (que vão do DÓ grave ao SI 
agudo) e dá o seu nome. Em seguida será impressa uma nova série de 
notas, e assim por diante. 


O PROGRAMA: 

O ciclo I(50-70) desenha a pauta. A variável N$, na linha 80, con- 
tém o nome das notas e V$ contém as notas sob uma forma codificada. 

O segundo ciclo I (90-150) permite escolher uma nota de forma 
aleatória, na linha 100; o seu nome é calculado na linha 110 e a nota é 
desenhada pela linha 120. 

A linha 130 toca a nota, enquanto o ciclo WHILE/WEND proíbe 
continuar até ao fim da sua execução. 

A linha 160 permite recomeçar teclando ENTER. 


PARA JOGAR: 

Fazer correr o programa teclando RUN. 

A pauta será então rapidamente apresentada no écran, depois são 
impressas as notas, com o seu nome escrito na base do écran. 

Um toque em qualquer tecla provocará a impressão de uma nova 
série de notas, e uma pressão dupla de ESC provoca o fim da partida. 


EXTENSÕES POSSÍVEIS: 


Poder-se-á afinar as regras de composição, imprimir mais notas, 
introduzir sustenidos e bemóis, melhorar o grafismo. 
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to REM COMPÕE 

20 RANDOMIZECTIME) 

so PRINT CHR$Cezo,CHR$CT) 

AW Cl 

sao FOR I=1 TO & 

py LOCATE 1, 4+2E1: PEN S:PRINT STRINGÊCIO 


vo N$="57 LA SOLFA MI 
1591791902] 322925328431 
94 FOR I=1 TO 16 

1080 X=INTCRND&T 4+19 

Na DE=MIDECNS, SECX+AZECXS 7) )- 2,33 

12% PEN &iLOCATE 4XI1-2, X:PRINT CHR$C211) 
;CHR$CIBG);CHR$ECES CHR$CZT1D; CHR$CTO); CHR 
GE); CHR$CE) 120” 

130 SOUND V,VALCMIDECVE, BEX-E, 32) WHILE 
SQ(1)>127: WEND 

144 PEN TILOCATE 4XHI-3, 20: PRINT D$ 

159 NEXT I 

1E8 PRINT CHR$CZzo+CHR$CO); PAFER 1:FEN 
Bi;LOCATE 7,24: INFUT “PREMIR ZENTER> PARA 
CONTINUAR”, R$: FAFER q 

17% GOTO 40 
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Dia da semana 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: utilitário. 
Dificuldade do jogo: fácil. 


O JOGO: 

O programa permite achar, sem qualquer cálculo, o dia da sema- 
na correspondente a uma certa data. 

Far-se-á entrar a data sob a forma de três números, por exemplo 
11, 3, 1956 para 11 de Março de 1956, e o resultado será impresso no 
ecran. 


O PROGRAMA: 

As linhas 20 a 60 controlam as entradas. A linha 40 ocupa-se do 
fim da partida. A linha 90 permite a correcção para as datas anteriores 
a 1582 (data em que se começou a utilizar o calendário actual). 

As linhas 100 a 110 permitirão a impressão no écran do nome do 
mês (só quatro letras) na resposta. 

A fórmula utilizada aparece nas linhas 130 e 140. 

As linhas 150 a 180 permitirão a apresentação do dia por extenso, 
na resposta. A linha 180 imprime os resultados centrados no écran. 


PARA JOGAR: 

Fazer correr o programa com RUN, depois entrar o dia seguido de 
ENTER, o mês (entre 1 e 12), seguido de ENTER, e o ano (sob a for- 
ma 1845, por exemplo) seguido de ENTER. 

O resultado é rapidamente impresso no écran. 

Carrega-se numa tecla qualquer e o programa volta a fazer a per- 
gunta DIA?. 

Para continuar basta teclar um dia, um mês, um ano. 

Para terminar é preciso responder O à pergunta DIA?. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á fazer entrar os meses por extenso e fazer imprimir por 
extenso o nome do dia. 

Pode-se pensar em fazer imprimir as datas e festas particulares 
(Natal, Páscoa, Domingo de Ramos, Pentecostes...). 

Pode-se escrever um programa que imprimirá os dias feriados de 
um dado ano, etc. 
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14 REM DIA DA SEMANA 
20 CLS: INK 3,6,5 


so PRINTUINFUT “DIA. CRS 
40 IF J=6 THEN END 

54 PRINT:INPUT "MES. dc PPS 
ço PRINT: INPUT “ANO. cc RS 
70 B= 


B6 S=INTCA/100)-INTCA/460) 
99 IF A<x=15E2 THEN S=% 

10960 M$=" JANEFEVEMARCAER IMA LOJUNHIULHAGOS 
SETEOUTUNOVEDEZE “ 

Wa Mg= MID$CMS, dtM-3, 

126 IF Mas THEN SOsUb 220 

130 S=]-1+INTOTBACM+T )/5)+INTCGRA/4)-S 
140 E=5 MOD 7 

1564 J$="DOMINGO GRE TERCA QUARTA 
QUINTA SEXTA SAEA 

168 du MID$C IS, EES+], po WHILE RIGTH$CJS, 
lo=" "4 Je=LEFTSC IS, LENCI$)-1): WEND 

pa F$="0 TASTRECID+? "AMB TRECED+! E 
U ” 

1864 FEN Z!LOCATE (C4O-LENCF$)D-LENCIGI)/Z, 
oa P$&/ PEN FU:PRINT JS: PAPER 1:PEN 
ç 

196 SOUND 1, 47€: SOUND 1,319: SOUND 1,379 
PENSA] LOCATE E, 24! INFUT “PREMIR «ENTER» PA 
RA CONTINUAR”, R$: FAFER G:FEN 1 
“lo RUN 
ed M=M+ Ta 
“30 AzAm-] 
edo RETURN 
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Habilidade com cartas 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo de prestidigitação. 
Dificuldade do jogo: fácil. 


O JOGO: 

É uma habilidade muito fácil, mas, aqui, as cartas são manipula- 
das sob os vossos olhos pelo AMSTRAD, que desempenha o papel de 
prestidigitador; são mostradas no écran 21 cartas, tomadas ao acaso 
num baralho de 52, e o jogador deverá reter mentalmente uma das car- 
tas apresentadas. Depois deverá indicar aa AMSTRAD em que coluna 
(primeira, segunda ou terceira a partir da esquerda) se encontra a carta 
escolhida; as cartas são então redistribuídas e o jogador indica de novo 
a coluna correspondente à sua carta; isto é feito mais uma vez e, à 
quarta apresentação, o AMSTRAD está em condições de adivinhar 
qual é a carta escolhida. 


O PROGRAMA: 

O ciclo I (60-100) permite escolher, ao acaso, 21 cartas das 52 do 
baralho, e a linha 80 permite assegurar que não seja feita duas vezes a 
mesma tiragem. A linha 120 contém os nomes das cartas (2, 3, ..., VA, 
DA, RE, AS) e a sua cor nas duas variáveis alfanuméricas V$ e CS. 

O ciclo I (130-210) realiza a apresentação do jogo no écran. 

A linha 140 descodifica a cor da carta. 

A linha 150 escolhe a posição de impressão. 

A linha 160 descodifica a altura. 

A impressão propriamente dita é efectuada da linha 170 à linha 
200. 

A linha 230 permite ao jogador fazer entrar o número da coluna 
onde se encontra a carta que escolheu. O ciclo J (270-290) baralha as 
cartas, e os ciclos encadeados J (320-360) e I (330-350) fabricam a nova 
“variável A$, a ser utilizada na próxima apresentação no écran. 


PARA JOGAR: 

Faz-se correr o programa com RUN. 

Obtém-se uma primeira apresentação de 21 cartas repartidas por 3 
colunas. 

Indica-se então o número (1, 2 ou 3) da coluna onde se encontra a 
carta escolhida, seguido de ENTER. 
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Obtém-se uma segunda apresentação e faz-se o mesmo; depois 
uma terceira apresentação e volta a fazer-se o mesmo. 

À quarta apresentação, a carta escolhida é mostrada automatica- 
mente. 

Sai-se do programa teclando duas vezes ESC em vez do número 
da coluna. 


EXTENSÕES POSSÍVEIS: 

Pode-se pensar numa melhoria da apresentação escrevendo os no- 
mes das cartas por extenso, ou mesmo desenhando verdadeiras cartas, 
a cores. 

Poder-se-á também tentar programar outras habilidades, utilizan- 
do o mesmo princípio básico mas com mais cartas, etc. 


19 REM HABILIDADE COM CARTAS 
26 RANDOMIZECTIME » 
30 ER SRDER S: INK O,S: INK 1, ZE: INK 2,0: INK 


ão “eLs 

sa Ab=" “ 

60 FOR 1I=1 TO 21 

70 B$=CHR$CINTCRNDK52+38)) 

8% IF INSTR (A$,E$)<>0 THEN 70 

30 AS=AS+ES 

160 NEXT 1 

No H=3:P=] 

120 Vê="2 3 4 5 6 7 E 3 YGVADAREAS":C$=C 
HR$(C226)+CHR$(C 227)+CHR$C 228)+CHREC 229) 
1360 FOR 1=1 TO LENCASDXHFP-)1KCP=0) 

140 S=]+INTCCASCCMID$CAS,1,1))-38)/13) 
150 J=INTCCI-15/75 

160 T=(ASCCMID$CAS,1,1))-38) MOD 13 

17260 IF F=0 THEN LOCATE 1, 1Z:PRINT “A SUA 
CARTA E!: 

180 LOCATE 1+17ZXHIKP-17ACP=0),1+C1-74]1)xP 
-]1&CP=0) 

1990 PRINT MID$CVE, ZKT+HI, 2), + 

200 PEN (2-(S=2 OR Sa3)): PR RINT' MID$CCE,S 
IDE FEN 

Zz18 NEXT 1 

220 IF F=6 THEN END 

230 LOCATE 1,16: INPUT “QUAL COLUNA? “;N 
240 CLS 

250 H=H-1 

260 R$="201 20": EO, 

270 FOR J=0 TO 

ZE) BS=BS+MIDSCAS, TEVALCMIDSCR$,N+],1))+ 


1,7) 
290 NEXT J 

300 IF H=0 THEN AS=B$:F=0:GOTO 120 
320 FOR J=0 TO 2 


330 FOR I=] TO 7 

340 AS=AS+MID$CES, SXI-2+,1) 
35) NEXT 1 

360 NEXT J 

370 GOTO 120 
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O indesejável 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: azar e reflexão (um jogador). 
Dificuldade do jogo: média. 


O JOGO: 

Você é proprietário de um prédio com 16 divisões vazias e não 
consegue apanhar o seu locatório indesejável. Visita as divisões ao aca- 
so mas, se visitar a divisão vizinha, o seu locatário, prevenido pelo ruí- 
do, muda-se. Pode mesmo reinstalar-se numa divisão já visitada e 
marcada como estando vazia. Para ganhar, terá de o desalojar em me- 
nos de nove jogadas. 


O PROGRAMA: 

Na linha 50 um quadro B é dimensionado a 16, para receber os 
números das casas já visitadas. 

O ciclo I (70-100) desenha o campo de jogo usando tinta transpa- 
rente. 

A posição inicial do locatário é tirada ao acaso na linha 110. 

O número da casa a visitar é dado na linha 120 e é verificado na li- 
nha 130. 

As linhas 140 a 210 controlam as diversas respostas possíveis. 

O ciclo I (180-200) desenha as casas visitadas. 

A linha 220 desenha o locatário, apagado na linha 250. 

As linhas 260 e 270 asseguram a sua deslocação. 


PARA JOGAR: 

Faz-se correr o programa com RUN. 

À pergunta CASA VISITADA?, responde-se teclando uma letra, 
de A a P. Seo locatário é encontrado, é mostrado no écran e a partida 
termina; se não, podem ocorrer dois casos: estar-se bastante longe, e o 
locatário não se mexe, ou estar na casa vizinha — caso em que aparece 
durante um curto instante e volta a esconder-se, aleatoriamente, numa 
casa vizinha. As casas já visitadas ficam de cor azul e não pode voltar 
a elas. Se, ao fim de nove jogadas, não encontrou o locatário, a posi- 
ção dele é mostrada e você perde. 
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EXTENSÕES POSSÍVEIS: 


Poder-se-á, claro, jogar com mais de 16 casas, utilizar caracteres 
gráficos para representar o locatário e o proprietário, utilizar um algo- 
ritmo mais subtil para a deslocação do locatário, eventualmente 


interditar-lhe o regresso a casas já visitadas, etc. 


19 REM O INDESEJAVEL 
20 RANDOMIZECT IME) 

30 PRINT CHR$(22)=CHR$C1) 
40 E$=STRINGS(3, 127) 

59 DIM BC16) 


16 

Bo LOCATE 4+4XKC1-1-4XINTCCI-19/49),2+4X1 
NT €C1I-1)/45:FEN S:FRINT B$ 

90 LOCATE 4+4K(1-1=4KINTCCI- 1)/4)5,3+4X%1 
RES AA PRINT B$:CHR$CBD; CHR$(B); !PE 
N Z!PRINT CHR$C64+1) 

196 NEXT I 

Wo X=INTCRNDX16)+1:S=] K=0: PRINT CHR$CZ 
2)+CHR$CO) 

126 PEN 1: LOCATE 1, 20: PRINT CHR$CZO) GT 
ida "CASA VISITADA? "CEIC=ASC(CÊ+O !)- 
Lo 

iz0 IF C«1 OR C>1€ THEN 120 

148 IF B(C)=] THEN LOCATE 14,22:.PAPER 1, 
PEN G:PRINT "JA! VISITADA”: PRINT CHR$C7) 
H:FAFER 9:GOTO 120 

156 IF C=X THEN LOCATE 3,22:PEN Z:FRINT 
" CONSEGUIU EM” 5" JOGADAS. BRAVO!" SOUND 
A RA RD UNE 1,379: SOUND 1,319:K=1:GOTO 
160 IF X-5B=C OR X-4=C OR X-G=C OR X-1=C 
OR X+]=C OR X+3=C OR X+4=C OR X+5=C THEN 
GOTO 2206 

176 LOCATE 1%, 22: PRINT "NAO ESTA AQUI”: S 
OUND 1,475:SOUND 1,426: SOUND 1,:379 

180 S=S+] :BCC)=1:FOR 1=] TO 16 

199 LOCATE A+4KCI-]=4KINTCCI=1)/4)),2+4% 
INT (C1-19/49:FEN S-ECID PRINT Es 

200 NEXT 1 

210 IF S=3 THEN LOCATE 5, 22: FAPER S:FEN 
B:FRINT “PERDEU, ELE ESTAVA EM ";CHR$CX+ 
64): K=1.FAPER G:FPEN T:ELSE GOTO 120 

czw LOCATE B+44CX-1-4RINTOCX-12/4)), 1+4% 
INTCCX-19/45: PRINTOºK” 

220 HE=TIME:-WHILE TIME-HE<S 20: VEND 

240 IF K=] THEN SOUND 1,319: SOUND 1,379; 
SOUND 1,47B:LOCATE 1,24:END 

254 LOCATE G+4KCX-1-ARINTCCX-1)/490, 1+4% 
INTCCX-15/4): PRINTO” 

E E=INTCIGKRND+1)-5: IF ABS(Z)=2 THEN 2 
ER 

E 4 dd X>16 OR XÉ1 THEN X=X-2Z:COTO 
PELO 

vew GOTO 18% 


102 


O jogo da vida 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: solitário (duas versões). 
Dificuldade do jogo: fácil. 


O JOGO: 

A versão aqui apresentada respeita as regras criadas originalmente 
pelo matemático J. H. Conway. 

No princípio do jogo é definida uma certa população, quer pelo 
AMSTRAD (versão automática) quer pelo próprio jogador (versão 
manual). Esta população vai evoluir diante dos olhos do jogador, res- 
peitando certas regras, muito elementares, de nascimento, vida e mor- 
te. A evolução prosseguirá até que se deseje parar o programa. 


O PROGRAMA: 

São utilizados dois quadros (B e C), na linha 50, para registar o 
estado da população. Os ciclos F (230-290) e G (240-280) são utilizados 
no início do jogo para definir a população inicial (linha 250). O cálculo 
da nova população é realizado em seguida com o auxílio de um ciclo 
quádruplo: 80-210, 90-200, 110-160, 120-150. A linha 130 realiza a ges- 
tão do novo estado, de acordo com as regras. 

A apresentação no écran deste novo estado é obtida realizando o 
duplo ciclo de impressão F (230-290) e G (240-280). 

A linha 300 permite recomeçar. 


PARA JOGAR: 

Na versão automática basta fazer correr o programa com RUN e 
observar o écran. Para parar basta teclar ESC duas vezes. 

Na versão manual, depois de fazer RUN para correr o programa, 
far-se-á entrar a configuração de partida, teclando O se não se quer pôr 
nada na linha e na coluna indicadas e 1 se se deseja pôr aí uma célula. 
Depois a evolução desenrolar-se-á de modo automático. 


EXTENSÕES POSSÍVEIS: 

Será fácil, se se dispuser de memória suficiente, aumentar as di- 
mensões dos quadros Be C, redefinindo a variável A. Poder-se-á tam- 
bém introduzir a cor e melhorar a precisão do desenho substituindo os 
PRINT por uma apresentação de alta resolução. 
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tó REM JOGO DA VIDA cMANUAL) 

30 INK O, 14: INK 1,18 

4% INPUT “DIMENSAO!: "5ALIF ALI OR ArIZT 
HEN RUN 

bo DIM ECA, ,AJ:DIM C(A,A) 

EO L=6 

70 GOTO 226 

Bo FOR F=] TO À 

34 FOR G=1 TO À 

Tom = 

Ng FOR I=-1 TO 1 

Izo FOR J=-1 TO 

136 IF F+]J=0 OR G+1=6 OR F+J=A+1 OR G+rIz 
A+1 THEN 150 

140 S=S+ECF+],G+I) 

156 NEXT J 

160 NEXT 1 

170 S=2k5-BCF,6G) 

180 C(F,G)=6 

1994 IF S>=B5 AND S<=7 THEN C(F,G)=1 

200 NEXT G 

210 NEXT F 

c2o CLS 

230 FOR F=]1 TO A 

cão FOR G=1 TO A 

25%) IF Ix2w THEN 260 

2558 LOCATE 1, 25:PEN PRINT "LINHA “UF” 
COLUNA ” 1611 PREMIR 1 OU O "s 

257 LOCATE 33,25: INPUT CCF,G): CCF, G)=-(C 
(EF, 6)=1): PEN ] 

da Z*G, ZEF: IF CCF,6)=) THEN PRIN 
276 ELF, G)=C(F,6G) 

220 NEXT G 


290 NEXT F 
399 GOTO BO 
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19 REM JOGO DA VIDA (AUTOMATICO) 
20 RANDOMIZECTIME) 
0 INK O, 14: INK 1,18 
46 INFUT “DIMENSAO: "5ALIF ASI OR ArIZT 
HEN RUN 
wo DIM ELA ,AZ:DIM CCA,A) 
to Lt) 
7% GUTO 226 
Bo FOR F=] TO A 
9% FOR 6=1 TO A 
1o0 S=0 
Ng FOR IL=-1 TO 
“0 FOR J=-] TO 1 
130 IF F+]=0 OR G+I=0 OR F+J=A+] OR G+I= 
A+] THEN 159 
148 S=5+BCF+J,G+I) 
159 NEXT J 
166 NEXT I 
170 S=2k5-B(CF,G) 
188 C(F, G)=0 
196 IF $>=5 AND S<=7 THEN C(F,6G)=1 
Low NEXT G 
elo NEXT F 
rey CLS 
220 FOR F=1 TO A 
24 FOR G=1 TO A 
250 IF I=6 THEN C(F,6G)=-(CRND<O.5) 
LEU LOCATE 2RG, 2&F: IF C(F,G)=1 THEN PRIN 


270 E(F,G)=CCF,6G) 
280 NEXT G 


290 NEXT F 
0% GOTO BO 
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Nível 3 


Nome do programa 


Temas e particulariadades 


Losangos .............. 
Maior, menor ........ 
Ordem .......c.. 


Um cálculo quebra-cabeças ..... 


Enforcado invertido 


«Nicómaco» ......... 


Rainhas no tabuleiro 


Palavras ............... 


Engatem os vagões . 


O lobo e os cordeiros 
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de xadrez 


Para o ajudar a adormecer. 

Um interessante jogo de dedução, 
Um pouco de astúcia para repor a 
ordem o mais depressa possível. 
Um jogo de letras clássico (dois jo- 
gadores). 

Simulação de uma partida, com um 
jogo de 32 cartas. 

Um bom treino mental (dois joga- 
dores). 

Desta vez é o computador que tenta 
adivinhar a palavra. 

Para se aperfeiçoar no cálculo men- 
tal (um ou dois jogadores). 

Com números, mas muito clássico. 
Um só jogador. 

Um jogo de cálculo mental com vá- 
rios níveis, para vários jogadores. 
Um velho problema, para o ajudar 
a reflectir. 

Uma ideia muito simples, mas não 
muito fácil de resolver! 

Um jogo de reflexão, nem sempre 
evidente. 

Aperfeiçoe os seus próprios proble- 
mas de bridge. 

Um conselho: começe com um nú- 
mero pequeno! 

Muito visual; um jogo de azar, para 
vários jogadores. 

Para os mais jovens: muito especta- 
cular. 

Um jogo de reflexão para dois joga- 
dores. 


Manipulação das cadeias 
e gráficos de alta resolução 


TRATAMENTO DAS CADEIAS DE CARACTERES: 
MID$, LEFT$, RIGHTS 


Tivemos ocasião de encontrar, a partir do nível 2, a função essen- 
cial utilizada no Basic AMSTRAD para manipular as cadeias: trata-se 
de MIDS(AS$,I,J), que permite extrair da cadeia A$ uma subcadeia de 
comprimento J a começar no carácter de ordem I. 

Assim, se: 


A$ = “SENHOR” 
ter-se-á: 
MIDS(A$,2,3) = “ENH” 


Para facilitar as manipulações, é possível utilizar as duas funções 
LEFTS$ e RIGHTS. 

LEFTS(A,1) permite extrair da palavra A$ os I primeiros caracte- 
res a partir da esquerda. 

Assim, usando o exemplo precedente, LEFT$(AS$,2) = “SE” 
[poder-se-ia, aliás, utilizar MIDS(A$,1,2) para obter o mesmo resulta- 
do). 

RIGHTS(AS$,J) permite extrair os J últimos caracteres a partir da 
direita da palavra A$. 

Assim, usando o exemplo precedente, RIGHTS(AS$,3) = “HOR”. 

É mais difícil passar sem a função RIGHTS, mas seria possível fa- 
zer MID$(A$, LEN(A$)— 3,3) para obter o mesmo resultado. 

O Basic AMSTRAD permite ainda a substituição directa de uma 
subcadeia por uma atribuição do tipo MIDS(—.—) = “—?”. 

Assim, poder-se-á escrever MIDS$(A$,1,1) = “'—??, o que permite 
simplificar consideravelmente certas escritas. 


O GRAFISMO COM A INSTRUÇÃO PLOT 


O AMSTRAD possui três larguras de écran (20, 40 e 80 colunas), 
às quais correspondem três definições gráficas. 
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Estes três modos têm a particularidade de possuir as mesmas posi- 
ções no écran. 

Assim, no modo 0, 1 ou 2, a instrução PLOT X,Y,C imprime um 
ponto na mesma posição do écran X,Y. Só varia a dimensão do ponto. 

Um parâmetro opcional C permite variar a cor de impressão. 


AS INSTRUÇÕES DE POSICIONAMENTO: MOVE E MOVER 


A origem dos eixos de posicionamento das coordenadas de um 
ponto gráfico é, por defeito, o canto inferior esquerdo do écran. A ins- 
trução ORIGIN permite deslocá-la. 

No posicionamento assim definido, MOVE X,Y posiciona o 
cursor gráfico no sítio onde as impressões podem ser feitas. 

As deslocações podem ser efectuadas relativamente à posição ac- 
tual do cursor. Assim, MOVER 8,4 desloca o cursor oito unidades pa- 
ra a direita e quatro para cima. 


O DESENHO DE LINHAS: DRAW E DRAWR 


A instrução DRAW X,Y desenha uma linha desde a posição do 
cursor gráfico até ao ponto de coordenadas absolutas X e Y. 

A instrução DRAWR X,Y desenha o traço até ao ponto deslocado 
X unidades horizontais e Y unidades verticais. 
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Losangos 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: interlúdio. 
Dificuldade do jogo: nenhuma. 


O JOGO: 

O programa vai construir progressivamente no écran um losango, 
depois vai apagá-lo progressivamente, reconstruí-lo de novo — e assim 
por diante. ; 

Pode pensar em utilizá-lo para o adormecer, se contar carneiros já 
não lhe basta. 

É-lhe proposta uma outra versão, muito diferente, que lhe permi- 
tirá compreender o funcionamento da poderosa instrução DRAW. 


O PROGRAMA: 

A linha 30 coloca no centro do écran a origem dos eixos. 

Um primeiro ciclo K (50-130) define as dimensões dos traçados su- 
cessivos. 

O segundo ciclo, I (60-120), traça faixas de pontos, utilizando ins- 
truções PLOT (linhas 80 a 110). 

Se a variável S (linha 70) estiver a —1, então haverá apagamento 
aleatório (continua-se a usar PLOT, mas utilizando cores aleatórias 
para apagar). 

O ciclo WHILE/WEND, inicializado em 140, permite escolher 
quatro cores diferentes. 

O segundo programa utiliza DRAW para desenhar os losangos e 
depois para os apagar. 


PARA JOGAR: 

Começa-se a execução do programa com RUN. Se necessário, faz- 
-se entrar um núcleo para o gerador (primeiro programa) e observa-se 
o écran. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á introduzir o som, utilizar a instrução LINE (que per- 
mitirá um traçado muito mais rápido), imaginar diversos programas 
baseados em princípios análogos (caleidoscópio, tapeçaria ...). 
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14 REM LOSANGOS] 

2% RANDOMIZECTIME) 

36 MODE G:INK O, 1: INK 1,0: INK 5,3: ORIGIN 
320, 200 

40 CLS: S= 

54 FOR k=0 TO 136 STEP € 

6% FOR I=0 TO k 

70 IF S<>0 THEN ON INTCIXBKRND) GOTO 206 
210, ,220, 230, 240 

86 PLOT -K+L,-1,1 

so PLOT -K+1, 1,1 

1600 PLOT kK-I,1,1 

Wo PLOT K-L,-I,] 

1zo NEXT 1 

vd NEXT k 

148 FOR 1=1 TO 4:C(l)=6:NEXT 1 

159 WHILE CCCC1D-CCRIDKCCCIID-CCSIDECCCT) 
=COAIIRCCCED-COIIDECCC A) CCCAIIECCC3) -(4 


)))=0 

aa FOR I=1 TO 4.C(l)=2+INTCRND&14): NEXT 
1726 WEND 

189 S=NOT S 

1984 GOTO 56 

£09 PLOT -K+L,-IL,CC1) 

21óo FPLOT -K+I,I,CC2) 

zo PLOT kK-L,1,C0(3) 

230 FLOT K-L,-I,CC4) 


<ão GOTO 126 

18 REM LOSANGOS 2 

eo RANDOMIZECTIME) 

3» MODE GU INK O, TI INK TO: INK 5,3: ORIGIN 

SEO, LDO 

dw CLS: S=y 

So FOR k=0 TO 1:38 

76 IF Sx>60 THEN ON INTCTKSKRND) GOTO 2z00 

20, 220, 20, ZA 

gw MOVE q,K 

99 DRAW k,8,1] 

1680 DRAW 0,-K,] 

1Wg DRAW -k,6,1 

128 DRAW 0,K,1] 

130 NEXT k 

1464 FOR 1I=1 TO 4:C(1)=6:N 

150 WHILE (CCC1D-CCRDIKCC 
(CC2)-C 
I: 


Tl 
I=COIIDIXCCCI) 
ADIKCCCII-CCA 


CRND&I 4): NEXT 


=CCAIIRCCCEI-CO SIR 
1) )=0 
1660 FOR I=1 TO 4:€C€ 


I 

1726 WEND 

180 S=NOT 5 

128 GOTO 50. 

“00 MOVE O,K:DRAW K,0,CC015 
218 MOVE k, 6: DRAW 0,-K, cz 
220 MOVE q&,-kK: DRAW AA Cc 
“so MOVE -K, 0! DRAW 3, CC 
244 GOTO 126 
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Maior, menor 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: jogo de dedução (um só jogador). 
Dificuldade do jogo: dificil. 


O JOGO: 

Inspira-se num princípio ligeiramente diferente do de «Master- 
mind»; trata-se igualmente de adivinhar um número (de um a sete al- 
garismos), mas as indicações de que dispomos são agora, por um lado 
o número de algarismos que, no número tentado, é superior aos do nú- 
mero a adivinhar, e por outro lado o número de algarismos que lhe é 
inferior. Se, por exemplo, o número a adivinhar é 3054, e se tentamos 
4251, a máquina responderá 2 maiores (0 4e o 2) e 1 mais pequeno 


(o 1). 


O PROGRAMA: 

A linha 60 proíbe o uso de números de mais de oito algarismos. 

O número a adivinhar é colocado na linha 80, numa variável alfa- 
numérica X$. 

As comparações com o número tentado são feitas na linha 130 
(que testa se acertamos), e no ciclo I (150-180) é feita a comparação 
«letra a letra». 

A apresentação do resultado no écran é realizado graças à linha 
190, com apagamento de uma eventual tentativa precedente. 

O contador do número de tentativas está na linha 200. 


PARA JOGAR: 

O uso de RUN para fazer correr o programa faz aparecer a men- 
sagem NUMERO DE ALGARISMOS?. 

Faz-se entrar um número inferior a 8 e prime-se a tecla ENTER. 

O número da tentativa é impresso, assim como a pergunta NU- 
MERO TENTADO?; responde-se fazendo entrar um número, seguido 
de ENTER. 

O resultado é então apresentado sob a forma > e <., 

Se não acertámos, recomeça-se (atenção: entrar apenas números 
com tantos algarismos quantos o do número a adivinhar). 

Se acertamos, o AMSTRAD imprimirá ADIVINHOU ... EM ... 
TENTATIVAS. 
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A linha 240 forma um ciclo de espera. Depois surge a mensagem 
OUTRO JOGO (S/N)?; carrega-se em S para iniciar novo jogo. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á, como no «Mastermind», imaginar um jogo análogo 
com letras, cores ou mesmo utilizando outros símbolos. 

Pode-se também pôr a hipótese de deixar jogar o AMSTRAD, 
que desempenhará então o papel de descodificador. 


16 REM MAIOR, MENOR 

2» RANDOMIZECTIME) 

30 INK O, 22: BORDER Z2: INK VT: INK 2,9 

4% CLS 

5g INPUT "NUMERO DE ALGARISMOS? “5C 

EQ IF C<l OR C>5 THEN PRINT CHR$(7):GOTO 


au 

760 E=1:F=0 

BO X$=STR$ECINTCRNDEASCC+IGOCC-EDD) 

99 XE=RIGHTSEC XE, LENCX$)-1) 

160 LOCATE 1,3:PRINT "TENTATIVA No. NUME 
Ro TENTADO > «” 

18 LOCATE 1,4:FPRINT STRING$(40,154) 

128 LOCATE 1,F+5: PRINT TABC4);CHR$CTEDGE 
; TABCTE-CC/ INPUT!" 5F$ 

130 PS=LEFTECES, COL IF P$=X$ THEN 220 

146 A=6:E=y 

150 FOR I=1 TOC 

160 IF MID$CF$S, L,1)2>MIDECXE, 1,1) THEN As 


1760 IF MID$CP$S, 1, 1)<MID$CXE, 1,1) THEN A= 


180 NEXT 1 

190 LOCATE 2Z8,F+B.PRINT ASLOCATE SE,F+5; 
FRINT E 

200 F=E MOD 17:E=E+1 

21% GOTO 128 

2ew LOCATE 1,23: PRINT ºADIVINHOU ";: PEN 
aa] K$; :FEN TiPRINT ” EM "5: PEN Z:PR 
INT 'FEN VEPRINT "TENTATIVAS" 

PERA SÓUND 1,478! SOUND 1,:313:50UND 1,:379 
240 X=TIME:WHILE TIME-X< 1608: WEND 

25% INFUT “OUTRO JOGO (S/N9? “R$ 

ss ai UPFER$CLEFTÊCR$, 1)9="5"” THEN 40 
ai s 
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n A$ com le- 
; do alfabeto 


ci VE DE PITT EP OTTIrErTer TRE TITITTO TOU? 
As linhas 190 e 200 transformam numa variável numérica a variá- 
vel alfanumérica entrada. 

A linha 210 chama uma primeira vez a rotina de inversão. 

A linha 240 chama segunda vez a rotina de inversão. 

A linha 250 contabiliza as tentativas. 

A linha 170 controla os resultados. 


PARA JOGAR: 
Fazer correr o programa com RUN. 


A palavra inicial é apresentada, sendo cada letra referenciada por 
um número de O a 9. 


AVIS 113 


A linha 
OUTRO JO(C 


EXTENSÕE: 
Poder-se 
com letras, c 
Pode-se 
que desempe 


REM M 
RANDO 
INK & 
CLS 

INPUT 
eo) IF Cx 


; TAB 18- 


As Publicações e as Livrarias 
EUROPA-AMÉRICA 


Convidam-no a juntar-se 
aquele grupo de leitores exigentes 


para quem um livro, 


além de uma companíria agradoive, 
é uma companhia útil. 


“Assim teremos muito gosto 
em passar a enviar-lhe,n 
“informações sobre os livros 
que publicamos. 
“o Editor 


Nome: 


Profissão: 
Morada: 
Cód, Postal: Localidade: 


Encontrei este postal no livro; 


LJ Que adquiri numa livraria | | Que encomendei pelo correio 
NÓS EDITAMOS O LIVRO QUE VOCÊ PROCURA! 


IMPORTANTE: Se desejar alguns livros de nossa edição, também poderá usar 
este postal. Bastará preencher o espaço que se segue. Todas as encomendas são 
confidenciais. 


Referência | Título e Autor 


209 F=E MOD 17,E=E+1 


218 GOTO 


Leo LOCATE 1,23: FRINT 


INT E; 
PERA 
248 
“50 
EO 
“By CLS 
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"PEN 1: 
SOUND 
X=TIME:WHILE TIME-X< 1600: WEND 
INFUT 
IF UPFER$CLEFT$SCR$, 1))="5" 


zo 


"ADIVINHOU *, 
PRINT X$; PEN TUPRINT O” EM "PEN 2:PR 


"PEN 


PRINT “TENTATIVAS” 
V, 478! SOUND 1,313:50UND 1,:379 


"OUTRO JOGO (S/N? "R$ 


“THEN 40 


Ordem 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo de reflexão. 
Dificuldade do jogo: média. 


O JOGO: 

As dez primeiras letras do alfabeto são apresentadas no écran de- 
sordenadamente; há que pô-las por ordem com o mínimo de jogadas 
possíveis, por permutas sucessivas de duas das letras; mas isso tem 
também o inconveniente de fazer permutar as duas letras que as ro- 
deiam, de acordo com o mecanismo explicado a seguir: 


BADGHIJCFE 


0123456789: permutarBe3 
BADFHIJEGC 
012345678 9: resultado 


O PROGRAMA: 

Os ciclos encaixados I (60-120) e J (80-100) definem uma variável 
alfanumérica A$, contendo as dez primeiras letras do alfabeto, desor- 
denadas. 

A linha 140 chama a rotina 600, que imprime no écran A$ com le- 
tras multicores. A linha 150 imprime os números de letras do alfabeto 
para a permuta. 

Faz-se entrar a permuta na linha 180. 

As linhas 190 e 200 transformam numa variável numérica a variá- 
vel alfanumérica entrada. 

A linha 210 chama uma primeira vez a rotina de inversão. 

A linha 240 chama segunda vez a rotina de inversão. 

A linha 250 contabiliza as tentativas. 

A linha 170 controla os resultados. 


PARA JOGAR: 

Fazer correr o programa com RUN. 

A palavra inicial é apresentada, sendo cada letra referenciada por 
um número de O a 9. 
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À pergunta INVERSÃO (1J)? responde-se fazendo entrar um nú- 
mero de dois algarismos, xy; x é o número da primeira letra a permutar 
e » o da segunda. As duas inversões são então sucessivamente efectua- 
das, e recomeça-se. 

O número de jogadas será apresentado no fim do jogo. 


EXTENSÕES POSSÍVEIS: 

Pode-se imaginar um jogo contra o computador, que calcularia a 
pontuação do jogador em função dos seus próprios resultados; pode-se 
também modificar as regras que regem as permutas. 


19 REM ORDEM 
2% RANDOMIZECTIMES 
39 MODE G:FOR I=2 TO IN: INK IL, I:NEXT 1 


CLS 
50 Ag="" 
6% FOR 1=1 TO 10 
70 R$=CHR$CINTCRNDK10+65)) 
8% FOR J=] TO 1-1 
90 IF R$=MIDSCAS,J,1) THEN 70 
190 NEXT 3 
110 AS=AM+R$ 
126 NEXT 1 
0 = 
149 LOCATE 1,4:PRINT "RESULTADO: ";:GOSU 
» EDU 
150 FRINT TAB(11)"0]23456789" 
169 LOCATE 1,9:FPRINT “TENTATIVA NUMERO" ; 


5 

178 IF A$="ABCDEFGHIJ” THEN LOCATE 2.24; 

PRINT “CONSEGUIU EM “;5;" JOGADAS”: SOUND 
1,478: SOUND 1,319: SOUND 1,579: END 

184 LOCATE 1, 23 PRINT CHR$CZ0)); INFUT “1 

NVERSAO (179% "R$ 

198 I=ASCCLEFTECR$,1))-47 

PSI J=ASC(RIGHTSCR$, 193-47 

210 GOSUE 504 

220 IF LEFTSCR$,1)="6" OR LEFTSCR$, 1)="9 

” THEN 240 

220 I=1-)oJ=1+% 

Zz40 GOSUE SOM 

2Ey S=S+] 

ZE) GOTO 140 

vo Bg="" 

510 N$=MID$CAS, 1,1) :M$=MID$ECAS,.1,1) 

5zo FOR T=1 TO LENCAS$) 

E30 IF T=1 THEN E$=B$+M$: GOTO SEM 

540 IF T=] THEN B$=B$+N$: GOTO SEM 

550 ES=ES+MIDECAS, T,1) 

SEO NEXT 1 

70 AS=ES 

5B0 RETURN 

ww FOR T=1 TO 16 

610 AF$=MID$CAS, T, 1): FEN CASCCAF$)-E3 FE 

RINT AF$&, 

zo NEXT T 

630 PEN I:RETURN 
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O enforcado 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo de letras (versão para dois jogadores). 
Dificuldade do jogo: média. 


O JOGO: 

Será sem dúvida difícil descobrir o nome do inventor deste jogo 
tão em voga, mas é certo que ele existe desde tempos imemoriais, por 
vezes praticado de formas bastante diferentes (por exemplo, reconsti- 
tuir um porquinho lançando dados). 

A aparição dos jogos em microcomputadores e a magia dos écrans 
de televisão deram-lhe um certo renovo: na versão retida, um dos joga- 
dores deve fazer entrar uma palavra de qualquer comprimento. O 
computador apresentará então, no écran, traços em vez das letras des- 
sa palavra e pede ao segundo jogador que proponha uma letra. Cada 
resposta correcta faz aparecer a letra no seu local exacto na palavra, e 
cada resposta falsa faz progredir o desenho do enforcamento. 

Para ganhar basta conseguir descobrir a palavra antes de o bone- 
co do desenho ser enforcado. 


O PROGRAMA: 

A palavra a adivinhar é introduzida no início do programa (linha 
30); a variável alfanumérica B$, na linha 40, contém todos os elemen- 
tos do desenho, em notação hexadecimal. 

O ciclo I (60-80) fabrica uma palavra P$, que contém traços no lu- 
gar de cada uma das letras da palavra inicial. 

O ciclo I (120-180) ocupa-se do desenho (mais ou menos comple- 
to, consoante o valor de P). O ciclo K (140-160) transforma os valores 
hexadecimais em elementos de desenho. 

As linhas 190-200 imprimem o resultado e param o jogo. 

A letra tentada é feita entrar na linha 210 e testada na linha 230; a 
rotina 260-280 substitui cada traço pela letra correspondente. 


PARA JOGAR: 

Depois de fazer correr o programa com RUN, passar para maiús- 
culas. Um dos jogadores deve fazer entrar a sua palavra e teclar EN- 
TER. Aparecem no écran traços no lugar de cada letra da palavra e é 
impressa a ordem ENTRE UMA LETRA. O outro jogador responde 
então, propondo uma letra seguida de ENTER. 
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Se a letra servir irá substituir uma ou mais traços; se não servir, a 
forca começa a ser desenhada. 
No caso de perder, a palavra exacta será apresentada. 


EXTENSÕES POSSÍVEIS: 

Será interessante elaborar uma lista de palavras com que o AMS- 
TRAD poderá trabalhar à vontade; poder-se-á também melhorar o de- 
senho (redefinindo os caracteres, por exemplo) e modificar o número 
de tentativas permitidas consoante a dificuldade da palavra. 


lá REM, O Na 


So INPUT VA SUA PALAVRA: ";R$ 

40 E$=" SEZ209B95 209595 2095 IE IEICZOIEZOIE 
9595959595959595969F5C20E 120202020" 

By dE TA " 

£6 FOR 1=1 TO LENCR$) 

78 Pé=pg+"- 

BO NEXT 1 

39 P=1] 

169 CLS 

119 LOCATE 1,3/:FRINT PS 

126 FOR I=11 TO P STEP -1 

130 PEg="" 

149 FOR K=0 TO 2 

150 PES=PES+CHR$CVAL(" &+MID$CES, 1+6HKCI- 
1)+2%K,202)) 


169 NEXT É 
e FEN FILOCATE ZE, 12-L:FRINT PES, FEN 
180 NEXT 1 
196 IF Fé$=R$ THEN FEN Z:LOCATE 1, 12: PRIN 
T "ERAVO!" SOUND 1,478: SOUND 1,:319:S0UND 
1,375: GOTO “96 
200 IF P=1 THEN INK 2,3, 15:FEN Z:FRINTO* 
FERDEU! A FALAVRA ERA! “IR$ISOUND 1,478: 


GOTO 236 
210 LOCATE 1, 20:FRINT CHR$C209 INPUT “E 
NTRE ia LETRA: "ISS SG=LEFTSCUPPERSECSS+ 
ARO Rel 
Leo T= õ: I= 
voy I=INS TRCI+,R$,5$):1F 1%4»0 THEN GOSU 
E ZE9!:GOTO 230 
240 IF T=0 THEN F=P-] 
so GOTO 116 


a T=1 

aro F$=LEFT$CF$, 1-1)+5$+RIGHTSCF$, LENCF'$ 
Pa 

280 RETURN 

230 GOTO 230 
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A bisca 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo de cartas. 
Dificuldade do jogo: fácil. 


O JOGO: 

O jogo proposto é sobretudo uma simulação, realizada com 32 
cartas, da distribuição de quatro mãos de cinco cartas. Poderá ser utili- 
zado para o estudo de problemas em que intervenham mãos de 20 car- 
tas em 32. 


O PROGRAMA: 

Na linha 50 é criado um quadro que possa conter as 20 cartas. 

O ciclo 1 (70-130) assegura a tiragem aleatória de 20 números, tira- 
dos entre 32; o ciclo J (100-120) verifica que se não realiza duas vezes a 
mesma tiragem. . 

O segundo ciclo I (150-290) assegura seguidamente a apresentação 
no écran, sendo os nomes da cartas apresentadas sob a forma de nú- 
meros ou abreviaturas e a cor é descodificada e apresentada em claro 
graças às linhas 200 a 260. 


PARA JOGAR: 

Basta teclar RUN para obter imediatamente a apresentação de 
quatro maços de cinco cartas cada um (uma mão). Uma batida dupla 
em ESC permite recomeçar. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á facilmente preparar uma apresentação mais gráfica re- 
definindo os caracteres do AMSTRAD; poder-se-á igualmente usar es- 
te programa como núcleo para a criação de jogos de cartas no compu- 
tador (que poderá, se necessário, servir de opositor; ver o exemplo do 
jogo «Póquer», neste mesmo livro). 
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REM 


A EISCA 


RANDOMIZE <TIME) 


INK 
CLS 
DIM 


3,9: INK 
AC) 


3 LOCATE 12, IE: PRINT 


2,0: INK 


FAZER A TIRAGEM” 


74 FOR I=] 


TO 


ES) 


BO ACI)d=]+INTORNDEZZ) 
2% IF 1=] THEN 136 


E 
3,3 


"AGUARDE, ESTOU A 


180 FOR J=1 TO 1-1 

Viê IF ACII=ACI)D THEN 80 

12% NEXT 3 

IsS0 NEXT 1 

140 CLS 

156 FOR 1=1 TO vo 

160 S$B=CHR$CZ2Z7) 

176 S=)I+ACI) MOD & 

DR Pi R$=RIGHTSCR$, LENCR$ 
198 pi LEFT$ECR$E, £) 

“BA S=5 THEN R$="VA” 

218 IF S=6 THEN R$=ºDA” 

22o IF S5=7 THEN R$=ºRE” 

ao IF S=& THEN R$="AS” 

za» IF Acljc=24 THEN Sg=CHR$CZLZE) 

254 IF ACIZa=16 THEN Sg&=CHR$CZZS) 

ZE0 IF ACIJL=8 THEN Sg=CHR$CZ2) 

270 LOCATE S+HIGKINTOCI-1)/55, 28K+1T:FEN € 
B+CcCASCCSE) MOD 2)=1)): PRINT R$,” “55 
280 k=(kK+1) MOD 5 


“90 NEXT 1 


200 GOTO 
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RO[2 19] 


Um cálculo quebra-cabeças 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: reflexão (dois jogadores). 
Dificuldade do jogo: difícil. 


O JOGO: 

Pratica-se com dois jogadores, um desempenhando o papel de 
codificador e o outro o de descodificador. 

O codificador parte de um número (proposto pelo AMSTRAD) e 
deve transformá-lo com a ajuda de cinco operações que ele próprio es- 
colhe, tal como os operadores. 

O resultado que ele obteve e as operações que utilizou serão 
expostos no écran; o descodificador deverá então tentar encontrar o 
número inicial efectuando as operações em sentido inverso. 


O PROGRAMA: 

A linha 50 permite obter o número inteiro tomado como ponto de 
partida, compreendido entre 5 e 20. 

Um ciclo I (110-180) permite fazer entrar sucessivamente as cinco 
operações. 

Quatro rotinas são utilizadas para os cálculos (nas linhas 1000 a 
4000). 

Um ciclo WHILE/WEND (120-140) assegura a validade das ope- 
rações. 

Após cada cálculo o resultado é apresentado no écran (só o codi- 
ficador deverá ver o écran durante esta operação) e o resultado defi- 
nitivo permanecerá exposto para uso do descodificador no fim dos 
cálculos (linha 170). 

A linha 190 apresenta as cinco operações utilizadas, assim como 
os correspondentes operadores. 


PARA JOGAR: 

Faz-se correr o programa com RUN. 

O número inicial é apresentado no écran, depois a ordem ENTRE 
CINCO OPERACOES; dever-se-á fazê-las entrar uma após outra, sob 
a forma, por exemplo: + 4 seguido de ENTER. 
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O resultado será apresentado após cada operação que se fez en- 
trar. No fim, as operações são todas apresentadas numa só linha, e é 
enviada a mensagem CORAGEM! ... dirigida ao descodificador (não 
há controlo na descodificação). 


EXTENSÕES POSSÍVEIS: 

Poder-se-á, claro, pensar em melhorar a parte de descodificação 
do programa introduzindo controlos sobre o resultado; pode-se tam- 
bém pensar em deixar o AMSTRAD participar mais, confiando-lhe o 
papel de codificador, etc. 


16 REM UM CALCULO QUEBRA-CABECAS 
à RANDOMIZE (TIMES 
30 INK O,3: INK 3,18,% 
am Cs 
o X=INTCRNDETE+SS 
eia PRINT “NUMERO INICIAL: *; 
7% PRINT "ENTRE CINCO OPERAÇÕES" -- 
o PRINT “NA FORMA +5, /2, &4. 
ay F=X 
120 DIM R$&c5) 
Wg FOR I=1 TO 5 
oca WHILE INSTRC"R+-/", LEFTECRECID+! 1,1 
3 =(3 
128 LOCATE 1,6:FPRINT CHR$C1B5,: INPUT “A 
SUA OFERACAO: “5R$CI) 
1464 WEND 
180 A=INSTROk+=—/", LEFTÊCR$ECIZ,10) 
te ON A GOSUE 1908, 2000,:3000, 4000 
1784 LOCATE 1,9:PRINT "NUMERO ÓBTIDO: os? 
HR$CZBD)P 
180 NEXT 1 
1964 PRINT:PRINT:PRINT "OFPERACÕES: ”;:FEN 
LiPRINT R$C4D)0 PMSRBCID)” PIRBCSDIL VIR 
GCP PRECE) 
RAÇA FEN Z:PRINT:PRINT:FPRINT "CORAGEM!... 


214 SOUND 1,478: SOUND 1,319: SOUND 1,379: 
PEN 1:END 

1000 F=FKVALCRIGHTECRECID,LENCR$CI))-13) 
1614 RETURN 

2000 F=F+VALCRIGHTECRECID, LENCR$CID3-19) 
2010 RETURN 

2000 F=F-VALCRIGHTECR$CIS,LENCR$CID)—-135 
014 RETURN 

avos F=F/VALCRIGHTECR$ECID,LENCR$CI)9—-15) 
49216 RETURN 
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Enforcado invertido 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo com palavras. 
Dificuldade do jogo: fácil. 


O JOGO: 

«O Enforcado» é um jogo de letras muito conhecido, aliás apre- 
sentado neste livro, no qual se trata de adivinhar uma palavra escondi- 
da pelo computador e em que cada letra não descoberta nos aproxima 
cada vez mais do enforcamento. 

Aqui é o AMSTRAD que vai procurar adivinhar a nossa palavra, 
mas ele joga um tanto ao acaso e não possui a nossa intuição; necessi- 
tará, portanto, regra geral, de bastantes mais tentativas para descobrir 
a solução. Para aumentar as suas capacidades usa-se uma fórmula que 
lhe permite tirar primeiro as vogais, depois as consoantes mais corren- 
tes e, por fim, as consoantes mais raras. 


O PROGRAMA: 

A linha 40 permite registar, numa variável alfanumérica D$, as le- 
tras do alfabeto pela seguinte ordem: vogais, consoantes usuais, outras 
consoantes. A palavra a adivinhar é introduzida na linha 60. 

A linha 70 imprime traços no lugar das letras a encontrar. 

O ciclo WHILE/WEND (100-220) assegura a continuidade ca 
busca. 

O ciclo na linha 120 serve unicamente para simular o tempo de 
busca de uma letra. 

A fórmula colocada na linha 130 permite modificar ligeiramente a 
probabilidade de tiragem, a favor das vogais e das consoantes usuais. 

A linha 150 provoca nova tiragem, e o ciclo I (180-200) reimprime 
os traços e as letras descobertas. 

A linha 210 incrementa o contador de tentativas. 

A linha 230 imprime o número de tentativas realizadas, no fim da 
partida. 


PARA JOGAR: 
Fazer correr o programa com RUN e passar para maiúsculas. 
Fazer entrar a palavra a descobrir, seguida de ENTER. 
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São então impressos traços (um por cada letra) e o AMSTRAD 
propõe uma primeira letra, verifica se ela serve e continua automatica- 
mente, até ter descoberto a palavra. 


EXTENSÕES POSSÍVEIS: 

Será sem dúvida interessante, para crianças, prever uma versão 
automática em que o jogador responderá SIM ou NÃO a cada letra 
proposta pelo AMSTRAD; poder-se-á também pensar em acrescentar 
uma apresentação gráfica, por exemplo uma forca ou uma viatura que 
avança para um precipício, etc. 


tê REM ENFORCADO INVERTIDO 
eo RANDOMIZEC TIMES 


Bo CLS 

46 D$="AE IQUECDFGHIKLMNFGRSTVXZ” 
50 C=]:Tg= 

66 INFUT “ENTRE A FALAVRA! ":R$ 
70 CLS 

80 TE=STRINGECLENCR$), =") 


so LOCATE 1,6:PEN SIPRINT TS: FEN 1 

160 WHILE TSL>R$ 

No LOCATE 1,9:FRINT "ESTOU A PROCURAR... 
TENTATIVA ";C 

tzo FOR J=1 TO I066:NEXT J 

LZd X=-ERCRNDAO, 7)- | 3KCRNDEO. 5I)-7KCRNDEO 

4 

tão X=INTOX&RND+?) 

15% Eg=MID$CDE, X, ID: IF Eg="-” THEN 130 

1E0 D$= LEFT$CD$, X=1)+"- 2+RIGHT$ECDS, ZE-X) 

179 PRINT:PRINT:PRINT “EU ESCOLHO: "PE 

N Z:PRINT ES SOUND 1,233: SOUND 1,213:S0U 

ND 1, 1S6:FEN 1 

lego FOR I=1 TO LENCR$) 

130 IF ES=MID$CRE, 1,1) THEN TE=LEFTECTE, 

1-1)+ES+RIGHT$ECTE, LENCT$E)-T): PEN Z:LOCAT 


230 LOCATE 11, 20:FAPER S!PEN Z!PRINT "AC 
ABEI EM ";C-]:” TENTATIVAS” 

24% SOUND 1, 478: SOUND 1,319: SOUND 1,379 
“bw GOTO 254 
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«Nicómaco» 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo de reflexão (cálculo mental). 
Dificuldade do jogo: média. 


O JOGO: 

Utiliza uma propriedade um pouco particular dos inteiros de 1 a 
100: poderem ser identificados sem ambiguidades pelos restos das suas 
divisões por 3, 5 e 7. 

O que aqui propomos é um programa codificador que simples- 
mente apresenta no écran os restos da divisão de um dado inteiro N pe- 
los divisores indicados. 

O jogo consiste em tentar descobrir o inteiro (mas, nesta versão, 
você só tem direito a uma tentativa). 


O PROGRAMA: 

A linha 50 permite confeccionar o inteiro. 

O ciclo I (80-110) calcula os três restos sucessivos, e a linha 100 
permite apresentá-los sob uma forma bastante visual, bem colocados. 

As linhas 60 e 70 existem para indicar de que divisão se trata. 

O número proposto pelo jogador entra na linha 120; é impresso e 
testado na linha 130 (impressão da mensagem de fim de partida: BRA- 
VO ou PERDEU). 

A forma de envelope sonoro definida na linha 150 permite tocar 
as notas (SOUND) da forma indicada na linha 160. 

As linhas 170 e 180 ocupam-se da geração da próxima partida, 
conforme a resposta do jogador. 


PARA JOGAR: 

Faz-se correr o programa teclando RUN. 

Os três restos serão então apresentados na mesma linha, simboli- 
zados por estrelas (a ausência de quadrados significa «resto 0»). 

À pergunta SUA TENTATIVA? responder-se-á fornecendo um 
inteiro compreendido entre O e 100, seguido de ENTER. 

Obter-se-á em resposta uma mensagem de PERDEU ou BRAVO, 
e a seguir a pergunta OUTRO JOGO (S/N)º. 

Para fazer nova tentativa responde-se S, ou N no caso contrário, 
seguido de ENTER. 
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EXTENSÕES POSSÍVEIS: 

Pode-se pensar em realizar o programa descodificador (damos os 
restos e o AMSTRAD deverá fornecer-nos N) e verificar se a proprie- 
dade pode ser ampliada (efectuando mais divisões, por exemplo). 


1a REM “NICOMACO” 

2% RANDOMIZECTIME) 

0 ZONE & 

Ay CLS 

Bo X=INTCRNDE100+]) 

EW PRINT TABCEJ"RESTO DA DIVISAO POR” 

Pe PRINTIPRINO SGA, 7 

bo FOR I=1 TO 3 

24 A=X MOD C2kIi+]) 

100 PAPER 3:PEN O:LOCATE S&I,5:PRINT STR 


1 
izo PAPER O:FEN T:LOCATE 1,16: INFUT "SUA 
TENTATIVA? “,N 
iz20 FAFER Z:.PEN S:PRINT:IF N=X THEN PRIN 
T "ERAVO!” ELSE PRINT “PERDEU!” 
146 PAPER G:FPEN 1 
1590 ENV 1,115, 12,1,-15,10 
1 FOR 1=1 TO 3:SOUND E 413,20,0, 1: NEXT 


7) 
170 PRINT: INFUT “OUTRO JOGO (S/N)? “,R$ 
180 IF LEFTSCUPPERSCRS+” “9, 1)="S” THEN 
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«Mastermind» 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: lógica (um só jogador). 
Dificuldade do jogo: difícil. 


O JOGO: 

Tendo-se tornado um grande clássico dos jogos de micromputa- 
dor, este jogo desenvolve o raciocínio dedutivo; trata-se de descobrir o 
mais rapidamente possível um número de n algarismos (poderá tomar- 
-se n compreendido entre 1 e 6), dispondo de informações em cada ten- 
tativa. 

Efectivamente, o AMSTRAD responderá indicando por um lado 
o número de algarismos que, no número proposto, estão exactamente 
no mesmo lugar que no número a descobrir, e, por outro lado, o nú- 
mero de algarismos que figuram no número a descobrir mas não exac- 
tamente no local correcto. 


O PROGRAMA: 

A escolha do número a descobrir é efectuada nas linhas 40 a 60. 

O número é fabricado na linha 80 (poderá haver algarismos repe- 
tidos). 

A apresentação é preparada na linha 100. 

O ciclo WHILE/WEND (120-140) trata do fim da partida. 

Um primeiro ciclo, I (160-210), testa os algarismos que estão no 
lugar certo. 

Um segundo ciclo, J (180-20), testa os algarismos que estão pre- 
sentes e mal colocados. 

Os contadores estão nas linhas 170 e 190, ao mesmo tempo que o 
emprego da variável EB$ permite evitar contagens duplas. 

A linha 220 imprime o resultado, e a linha 230 contabiliza as ten- 
tativas. 


PARA JOGAR: 
Tecleia-se RUN e escolhe-se o comprimento do número desejado 
(de 1 a 6), seguido de ENTER. 
Após a impressão do cabeçalho «No. NUMERO NO LUGAR 
CERTO» introduz-se o número próprio, seguido de ENTER. 
Obtém-se imediatamente a resposta (em caso de algarismo duplo, 
os resultados podem ser de interpretação um tanto delicada). 
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Em seguida introduz-se a nova tentativa, e assim por diante. 

Quando se descobriu o número obtém-se a mensagem O NÚME- 
RO ERA X. FOI DESCOBERTO EM... JOGADAS. 

Pode-se sair do programa em qualquer momento teclando ESC 
duas vezes. 


EXTENSÕES POSSÍVEIS: 

Pode-se procurar evitar a presença de algarismos duplos no núme- 
ro a descobrir, pode-se também prever uma mudança de página auto- 
mática, com chamada dos resultados precedentes; poder-se-á também 
realizar jogos análogos com palavras ou outros simbolos (cor, tama- 
nho...) 


1ó REM “MASTERMIND” 

£o DEFINT N 

sa DE CR NE 

do WHILE Nº OR 

Bo INPUT 2 QUANTOS” "ALGARISMOS? 2 ;N 

by WEND 

70 E=1,F=): X$=STRECINTOCRNDEASCN+OCCN-135 


80 X$=RIGHTECXS, LENCX$2-1) 
CLS 


160 PRINT” No. NUMERO LUGAR 

CERTO” 

Wo PRINT STRING$(48,154) 

120 WHILE Egs>Xg 

1320 LOCATE 1, 3+F:PRINT E;CHR$CIB);TABCIS 
SPA INPUT O", ES 

140 X=0:Y=X 

150 EB$=ES 

164 FOR 1I=1 TON 

170 IF MID$CX$, IL, 1)=MID$CES, 1,13 THEN X= 
X+I:MIDSCEES, 1,1; md) GOTO 210 

184 FOR J=1 TON 

156 IF MID$CX$, 1, 1)=MID$CEB$,J,1) THEN Y 
=Y+1:MID$CEBS, J,1)=".":GOTO 210 

200 NEXT J 

210 NEXT I 

220 LOCATE 24, S+F:PEN Z!PRINT X;TAB(33); 
PEN CS:PRINT Y:FPEN 1 

230 E=E+l:F=(F+]) MOD 18 

40 WEND 

254 SOUND 1,478: SOUND 1,319; SOUND 1,379 
269 LOCATE 11=(N/2),22:PAPER : Z:PRINT “0 

CODIGO ERA “,E&;,”. DESCOBERTO “EM ",E-1;” 
TENTATIVAS” 

7% GOTO 270 
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Idem 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo de cálculo mental (dois jogadores). 
Dificuldade do jogo: consoante o nível escolhido. 


O JOGO: 

O AMSTRAD escolhe um número de n algarismos (consoante o 
nível de dificuldade indicado no início). Este número (o mesmo inicial- 
mente para os dois jogadores) será, a cada vez que se jogue, regular- 
mente decrementado de uma quantidade igualmente escolhida ao acaso 
pelo AMSTRAD no início do jogo; em cada jogada deve-se escolher 
uma coluna (das dezenas, das centenas, etc.) e acrescentar nesta coluna 
um certo inteiro; o objectivo é obter em dado momento a apresentação 
de um número com todos os algarismos idênticos. 

Cada resultado será mostrado durante um breve momento, após o 
que passa a vez ao jogador seguinte, que voltará a partir do seu resul- 
tado precedente. 


O PROGRAMA: 

Uma variável numérica, N, é dimensionada a 2 na linha 40, para 
conter os resultados sucessivos dos dois jogadores. 

O ciclo WHILE/WEND (45-55) permitirá fazer entrar o nível de 
dificuldade escolhido. 

O número inicial é confeccionado pela linha 70. A quantidade que 
intervirá nas decrementações é obtida na linha 90. 

A linha 120 testa se o resultado não é demasiado pequeno. 

A linha 130 imprime o número do jogador. 

O número é apresentado na linha 140 e o do jogador entra na li- 
nha 160 (número de dois algarismos). 

A linha 170 incrementa a coluna escolhida, e a linha 180 decre- 
menta o número da quantidade escolhida no início. 

O resultado será apresentado durante um curto momento (linha 
210). O ciclo I (260-280) permite verificar se todos os algarismos são 
idênticos. 

A impressão e o fim da partida são efectuadas na linha 290. As li- 
nhas 300 e 310 tratam da mudança de jogador. 
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PARA JOGAR: 

Teclar RUN para fazer correr o programa. 

O número inicial será impresso no écran para o jogador número 1, 
que joga teclando xy, seguido de ENTER; x é o algarismo a adicionar e 
) é o número da coluna onde ele deve ser adicionado. 

O resultado (provisório, se for demasiado pequeno) será então 
apresentado durante um curto instante, e passa à vez do segundo joga- 
dor, e assim por diante. Pode-se parar em qualquer momento teclando 
ESC duas vezes. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á alargar o jogo a mais de dois jogadores, melhorar a es- 
colha do número que intervém na decrementação, melhorar os diver- 
sos controlos, deixar impressos no écran os diferentes resultados, etc. 


18 REM IDEM 

26 RANDOMIZECTIME) 

4% CLS H=1:DIM N(2) 

45 WHILE N<1 OR N>& 

5% INFUT “NIVEL (2-7): "5N 


BO NC2)=NC1> 

96 A=INTCZEUS CN-15KRND+U" CN-15) 

190 IF H=1 THEN P=P+] 

Ne cLs 

120 IF NCH)<XUC CN-15) THEN NCH)=U“N-ABS CNC 
H3) 


1350 LOCATE 1,3:FRINT "JOGADOR “;:PEN 1+H 
“PRINT H;:PEN TEPRINT "TENTATIVA “SP 

146 LOCATE 1,6:FRINT "NUMERO: “:LOCATE 1 
S-N,6:PEN 1+HE PRINT NCHo:FEN 1 

159 LOCATE 9,7:FRINT "7654321" 

1E0 LOCATE 1, 19:PRINT “O SEU JOGO (N E € 
3 NA FORMA NC "S:PEN H+7: INPUT "R$: PEN 


1 
1720 NCH)=NCH)+VALCLEFTÊCRSE, ID )KUCCVALCRI 
GHTECR$,12)-15 
180 NCH)=NCH9-A 
196 IF NCH)2U“N THEN NCH)=NCH5-U“N 
200 NCHI=INTCONCHO) 
210 LOCATE 1,13: PRINT "RESULTADO: “;NCHO 
220 SOUND 1,475: SOUND 1,426: SOUND 1,:379 
230 FOR J=1 TO 1200:NEXT J 
240 R$=STR$CNÇH)S 
250 R$=RIGHT$CR$, LENCR$)-1) 
ze» FOR I=] TO LENCR$)-] 
270 IF MIDS$CR$, 1, 1)X>MID$CR$,1+1,1) THEN 


2860 NEXT 1 

290 FRINT:PRINT:FEN H+1:FRINT “BRAVO! JO 
GADOR ";H: SOUND 1,475: SOUND 1,:319: SOUND 
1,379: END 

300 H=]+(H MOD 2) 

310 GOTO 106 
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Rainhas no tabuleiro 
de xadrez 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: reflexão. 
Dificuldade do jogo: difícil. 


O JOGO: 

O programa utiliza um algoritmo de alto poder de realização para 
resolver um problema que deu dores de cabeça a investigadores, mes- 
mo a alguns tão célebres como Gauss, que não pôde descobrir todas as 
soluções. Trata-se de descobrir todas as maneiras de posicionar rainhas 
num tabuleiro de xadrez, de tal modo que nenhuma possa tomar 
outra. 

O programa proposto é muito flexível, porque você pode dispor 
mesmo da possibilidade de escolher o tamanho do seu tabuleiro de xa- 
drez, e os resultados serão apresentados simultaneamente de forma vi- 
sual e de forma numérica. 


O PROGRAMA: 

A linha 30 permite-lhe escolher o tamanho do tabuleiro de xadrez. 

Uma variável D será dimensionada de acordo com essa escolha, 
na linha 40. 

Um ciclo de exploração principal I (50-110) contém um subciclo 
J (80-100) que realiza o controlo de não alinhamento (linha 90). 

Se, no decorrer da exploração, se encontra um alinhamento, 
volta-se para trás, utilizando as linhas 230 a 270, e recomeça-se. 

O ciclo F (130-210) assegura a impressão do tabuleiro de xadrez, e 
o ciclo K (160-180), que eventualmente poderá ser suprimido, assegura 
a impressão do resultado sob a forma de um código numérico corres- 
pondente à posição das peças em cada coluna. 

A linha 220 permite uma paragem após a apresentação no écran 
de cada uma das soluções. 


PARA JOGAR: 

Faz-se correr o programa com RUN, depois tecleia-se a dimensão 
do tabuleiro de xadrez desejada, e faz-se ENTER. 

Basta esperar, com paciência (quanto maior for o tabuleiro mais 
longa será a espera). A primeira solução será exposta no écran e depois 
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o programa pára; é preciso carregar em qualquer tecla para voltar a 
funcionar. Para terminar a exploração sem ter atingido todas as solu- 
ções basta teclar ESC duas vezes. 


EXTENSÕES POSSÍVEIS: 

Pode-se pensar em encontrar algoritmos para todos os problemas 
análogos (posição de torres, deslocação de um cavalo, etc.), tentando 
utilizar o máximo de ciclos WHILE/WEND. 


180 REM RAINHAS NO TABULEIRO DE XADREZ 
20 CLS INK O,9: INK VZii INK 2,0: INK 3,26 
115: SPEED INK 5,5 

54 INPUT «TAMANHO DO TABULEIRO? 1,5 
4% DIM DCS 

bg I=1+1 

By DCI)=] 

70 IF I=] THEN 116 

Em FOR J=1 TO I-] 

24 IF DCIs=Dc]) OR CABSCDCIS-DCT))=1-J) 
THEN 240 

igg0 NEXT J 

Ne pa IÁ«=S THEN E6 


146 LOCATE ZHF+] AJ PRINT PF 

16 LOCATE 1, 2KF+1I PRINT F 

166 FOR kK=1 TO S 

PAR EN Z]LOCATE Zkk+rZ, ZKF+TE PRINT". PR 


150 NEXT k 

RENT E 2ADCFo)+Z, 2XF+I PEN SEPRINT "x 
200 LOCATE F+),2Z0:FEN S:PRINT RIGHTECSTR 
$CDCPoD, 15: FEN 1 

210 NEXT F 

220 SOUND 1,478: SOUND 1,319: SDUND 1,378; 
LOCATE 6,23: INPUT CARREGUE EM SENTER> FA 
RA CONTINUAR”, R$ 

eso L=1-] 

ado DCLI=DCI9+1 

«50 IF D(lis=5 THEN 70 

260 L=1-] 

276 IF IXx>0 THEN 240 
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Palavras 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: jogo de letras (para um ou vários jogadores). 
Dificuldade do jogo: média. 


O JOGO: 

É difícil imaginar jogo mais simples que este, no seu princípio: 
contenta-se com imprimir no écran, desordenadamente, letras retira- 
das de uma trintena de palavras. Mas tente jogá-lo e verá que não é as- 
sim tão fácil, variando a dificuldade, evidentemente, consoante a lista 
de palavras que previamente tenha introduzido como DATA. 


O PROGRAMA: 

A linha 40 permite dimensionar a variável A$(I), que conterá as 
palavras. 

O ciclo I (50) toma a lista das palavras (inscritas como DATA nas 
linhas 240 a 280). 

O ciclo WHILE/WEND das linhas 70-90 escolhe três cores de tin- 
ta diferentes entre si e diferentes da do fundo. 

A linha 120 escolhe uma palavra ao acaso; o ciclo I (150-220) con- 
trola se uma letra não foi já tirada, e retoma as letras desordenadas. 

A linha 230 imprime no écran as letras, e a linha 240 aguarda a 
vossa proposta, que é testada na linha 250. 

O número de tentativas é incrementado na linha 260. 

O fim da partida é controlado pela linha 270, e a pontuação é im- 
pressa na linha 290. 


PARA JOGAR: 

Faz-se correr o programa com RUN. Uma série de letras desorde- 
nada é impressa no écran, e é preciso descobrir a palavra correspon- 
dente (o tempo é controlado). 

Tecleia-se a palavra suposta, depois ENTER, e será impressa no 
ecran uma nova série de letras se se responder S à pergunta OUTRA 
TENTATIVA (S/N)?. 

A pontuação e o número de tentativas são apresentadas no écran 
no fim da partida. 
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EXTENSÕES POSSÍVEIS: 

Pode-se imaginar minutar o tempo Ge aparição da palavra no 
écran, ou fazer desfilar as letras uma após outra. 

Pode-se também avolumar as dificuldades introduzindo jokers, 
Jogar com vários jogadores, contabilizar os pontos, etc. 


14 REM PALAVRAS 

26 RANDOMIZE(TIME) 

39 DEFINT E 

44 DIM ABCIO)  S=0: Ez 

So FOR I=1 TO 30:READ ASCIDINEXT IT 

60 F=0:El=0 Ez=0  Es=0 

78 WHILE CcF-EIDHCF-EZ)RCF-ES)ECET-EZ)EC 

EI-ESIHCEZ-ES))=0 

80 EI=RNDX2ZE | EZ=RNDADE | EI=RNDKZE 

96 WEND 

a CLS: INK O,FUINK T,ETSINKE 2, EZCINK 3, 
Ro) 

Lia WHILE A$CZ)="" 

LES 


3 E=INTCRNDAZO+1) 
à WEND 

1460 R$=ASCI) AB="0"ASCT)="" Vê=R$ 

1594 FOR I=1 TO LENCR$) 

160 E=1 

1720 WHILE MID$ECR$,2,1)="— 

180 2=INTCRNDA&LENCR$D+TD 

198 WEND 

200 AB=ASAMIDSCRECRE, 2,1) 

210 MIDECRE, E, 1)="—* 

220 NEXT 1 

230 PRINT “AS LETRAS SAD: “; PEN S: PRINT 

Ea RO 1,478: SOUND 1,426: SOUND 1,379: 

240 LOCATE V,6:FPRINT "A SUA SOLUCAO: “5: 

PEN 2: INPUT “” SG: PEN 1 

254 IF UPPER$SCSS)=V$ THEN S=S+] 

ZE E=E+] 

E ara TV, 17: INPUT “OUTRA TENTATIVA € 

so IF LEFTSCUPPER$CR$+" "5, 1)="S" AND E 
2» THEN 66 

250 LOCATE 1, 16:FRINT “A SUA FONTUACAO 

",S/"EMV SE," TENTATIVAS? 

360 SOUND 2,476: SOUND &, 319: SOUND £,379 

318 DATA PRESUNTO, ENERGUMENO, FILIADO, ERU 

DITO, INSIGNIFICANTE, FATALISTA 

320 DATA IMPRESSIONANTE, ATRAENTE, ANTICON 

STITUCIONAL, ARANHA, INTREF IDO, COMPUTADOR 

330 TREGUA, EANDEIROLA, SENADOR, ACTUAL IDAD 

E, CANIBAL, DIEDRO 

340 DATA BEBADO, BARCO, ESFANADOR, SIGNATAR 

IO, CONTRATUAL, PROCESSO 

354 DATA CALOR, INVERNAL, DESODORIZANTE, LU 

XACAO, EBONITE, NÓVICO 


t 


+ Gi ta 
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Permutas 


REFERÊNCIAS: 
Dificulade de programação: média. 
Categoria de jogo: reflexão. 
Dificuldade do jogo: média. 


O JOGO: 

O AMSTRAD pede-lhe antes de mais o número de letras que dese- 
ja permutar (não mais de 12). A partir daí vai imprimir no écran o nú- 
mero correspondente de letras tomadas no início do alfabeto, primeiro 
desordenadas (INICIO) e depois ordenadas (FIM). 


O PROGRAMA: 

A linha 40 permite escolher o número de letras, e a linha 50 con- 
trola que se não pede mais de 12. 

A linha 80 realiza a mistura, tirando ao acaso a nova posição de 
cada letra. As letras são depois guardadas, à medida que vão sendo ti- 
radas, numa variável B$ (linha 100), suprimidas em A$ e recolocadas 
em C€$, na ordem correcta (linhas 110-120). 

A linha 140 controla o número de letras de B$. 

As impressões no écran são efectuadas pelas linhas 160, 170 e 180. 

A viragem é feita, letra por letra, no ciclo I (210-230); o resultado 
é colocado em B$ na linha 240, apresentado no écran pela linha 250 e 
comparado com o resultado final na linha 260. 

O número de tentativas será impresso no écran no fim da partida, 
graças à linha 270. 


PARA JOGAR: 

Depois de ter teclado RUN, obtém-se a apresentação no écran da 
pergunta NUMERO DE LETRAS (DE 1 A 12)?; responde-se teclando 
N, seguido de ENTER. A impressão seguinte apresenta a ordem inicial 
(INICIO) e a ordem a obter (FIM). 

Joga-se indicando o número de letras a permutar a partir da 
esquerda; por exemplo: se o texto apresentado fosse GEABDFC, te- 
clando o 3 e ENTER obter-se-ia AEGBDFC. 

Prossegue-se até à obtenção da ordem desejada. 

A pontuação será impressa no fim da partida, assim como a per- 
gunta OUTRO JOGO (S/N)?; responder S se se deseja fazer outro 
jogo. 
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EXTENSÕES POSSÍVEIS: 

Poder-se-á utilizar o mesmo tipo de jogo para, por exemplo, re- 
constituir um desenho escondido, cujas diversas partes sejam referen- 
ciadas por letras. Pode-se também realizar permutas mais complexas 
(por exemplo, o facto de permutar duas letras faz permutar as duas vi- 
zinhas da letra mais à esquerda, etc.). 


18 REM PERMUTAS 


LS 

au INFUT “NUMERO DE LETRAS (DE 1 A 129? 
bó IF Nxz OR NºlZ THEN 46 
Ea Ag=" ABCDEFGHIJKL” :C&=STRING$C 12," "3a 
7O CLS 

80 X=INTCRNDEN+T) 

so IF MID$CAS,X, Va=" * THEN Bio 

Ivo EF=MIDECAS, X, 1)+B$ 

No MIDECCE,X, I)=MID$CAS,X,1) 

e MID$ECAS, X, om" 

o t= 

146 IF LENCEg)>N THEN BO 

1590 CE&=LEFT$ECLCS, LENCE$HD) 

ted LOCATE 1,5:PRINT "INICIO oa PEN É 
(PRINT ES.PEN 1 

170 LOCATE 1, 7.FRINT "FIM oa PEN Ss 
“PRINT CS: PEN 1 

180 LOCATE 1, MC PRINT ºPERMUTA NUMERO", S 
CPRINTEPRINT “QUANTIDADE? “;CHR$CIBIGLIN 
PUT "º,L:TF LoN OR LXl THEN 180 

1880 G=5+] 
COMO Apa" 

“10 FOR I=] TOL 

ez AP=ASAMIDECES,L-I+1,1) 

eso NEXT 1 

240 EbzAS+RIGHTSCES, LENCES O) -Lo 

<5w SOUND 1,473: SOUND 1, 426: SOUND 1,:379; 
LOCATE 1, 17Z:PRINT ºRESULTADO PS PAPER É 
"PEN C3.PRINT ES:PAPFER G:FEN 

260 IF Brg THEN 180 

“o SOUND 1,478: S0UND 1,319:SOUND 1,:3 
Ar "CONSEGUIDO EM"; S-1," TENT 
280 INFUT “OUTRO JOGO CS/N9?P "RG 

“so IF LEFTSCRE, Vo="5" THEN S0 


79: 
ATI 
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Brídge 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: reflexão. 
Dificuldade do jogo: variável, consoante o problema posto. 


O JOGO: 

Não encontrará, neste programa, um parceiro para os seus jogos 
de bridge, mas sim, mais exactamente, uma simulação para a apresen- 
tação de uma mão; esta apresentação é realizada jogo a jogo. Pode-se, 
a partir daí, pôr todas as espécies de problemas: declarações, jogar car- 
tas, etc. 


O PROGRAMA: 

As linhas 50 e 60 definem um jogo de 52 cartas. 

O quadro B$, na linha 70, permitirá a apresentação no écran dos 
simbolos das cores e também melhorar a designação de certas cartas 
(10, valete, dama, rei e às). 

O ciclo I (80-240) realiza a tiragem de quatro jogos de 13 cartas. 

O ciclo J (90-210) realiza tiragem e impressão. 

A carta é escolhida, entre as 52 disponíveis, pelo ciclo WHILE/ 
WEND (110-130) inicializado em 100. 

A linha 140 calcula a cor da carta tirada. 

As linhas 150 e 160 ocupam-se da impressão complementar no ca- 
so de se tirar um 10, um valete, uma dama, um rei ou um ás. 

A impressão é realizada pelas linhas 170 a 190. 

A linha 200 permite eliminar as cartas já tiradas, e a linha 220 rea- 
liza uma paragem entre cada apresentação. 


PARA JOGAR: 

Faz-se correr o programa com RUN. 

Uma primeira série de 13 cartas é impressa no écran, verticalmen- 
te. Bastará carregar em qualquer tecla para obter a segunda série de 13 
cartas. Proceder-se-á do mesmo modo para a terceira e para a quarta 
séries. 


EXTENSÕES POSSÍVEIS: 
Pode-se pensar em representar as 13 cartas sob uma forma mais 
convencional. 
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Pode-se também acrescentar a possibilidade de fazer declarações 
(e compará-las com as do AMSTRAD, por exemplo), ou introduzir 
possibilidades de jogar cartas, mesmo para o AMSTRAD. 


1o REM ERIDGE 

eo RANDOMIZECTIMES 

so INK 2,0: INK 3,6 

dy CLS 

BO Re=23456 789] VDRA” 

EM R$=R$+REFRE+ 

7% EBo=CHR$CLZE)+CHR$C227)+CHR$CEZE)+CHRS$ 
(2EI)+" GABES” 

80 FOR J=1 TO 4 

9% FOR I=] TO 13 

IGoO X=53 

No WHILE MID$CRS,X,1)="0" 

120 X=INTCRND&LENCR$)+]) 

130 WEND 

140 S=INTCCX-12/139+] 

159 T=X MOD 13 

160 T=T-13&CT=0) 

176 LOCATE 10X]J-9, I+1 PRINT MID$CR$E,X,1) 


1809 IF T>=9 THEN PRINT MID$CES, T-4,1) 
194 LOCATE 104J-5, 1+1 4 PEN a-(S=2 OR S=3) 
PRINT A DA FEN 1 

200 MIDECR$,X, 13="0" 

210 NEXT 1 


o LOCATE 4,23: INFUT "CARREGUE EM <ENTE 
R> FARA CONTINUAR”; S$ 
eso LOCATE 4,23: PRINT CHR$CZOD; 


“do NEXT J 
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Hanói 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: reflexão. 
Dificuldade do jogo: dificil. 


O JOGO: 

Este jogo é aqui apresentado numa versão para um jogador. 
Dispõe-se de um certo número de discos (sete no máximo) e deve-se 
transferi-los da torre número 1 para a torre número 3, respeitando 
uma única regra: em momento algum um disco pode ser coberto por 
um disco de diâmetro superior. 

O número de jogadas não é contabilizado por este programa mas, 
em contrapartida, as jogadas ilícitas serão recusadas. 


O PROGRAMA: 

A variável D$, na linha 40, servirá para desenhar os discos e as 
bases. 

O número de discos é feito entrar na linha 50 e recusado se tiver 
mais de sete discos. 

O ciclo 1 (70-90) permite fabricar uma variável A$(1), que contém 
o estado da primeira pilha sob forma numérica (na linha 30 são previs- 
tas três variáveis para conservar o estado das três pilhas). 

As bases são desenhadas pela linha 110 e as três pilhas pelos ciclos 
encaixados I (130-180) e J (140-170). 

O controlo da jogada é efectuado pela linha 270 e o estado das pi- 
lhas é modificado pelas linhas 280 e 290. 


PARA JOGAR: 

Depois de se ter feito correr o programa com RUN, em resposta 
ao pedido que é impresso no écran faz-se entrar o número de discos, 
seguido de ENTER. Obtém-se o desenho do estado inicial e, à pergun- 
ta TORRE DE PARTIDA?, responde-se dando o número da torre que 
escolhemos. Este número (1, 2 ou 3) será recusado se a torre estiver va- 
zia. Depois tecleia-se ENTER e, à pergunta TORRE DE CHEGADA?, 
responde-se com o número da torre de chegada que escolhemos. 

Se a jodada não é possível, ser-se-á obrigado a recomeçar na 
TORRE DE PARTIDA. Se a jogada for possível, a deslocação é reali- 
zada e recomeça-se. 
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EXTENSÕES POSSÍVEIS: 
Poder-se-á desenhar discos de diferentes cores, introduzir um con- 
tador de jogadas e, sobretudo, definir um jogo para o computador. 
Pode-se também tentar complicar o jogo com mais duas pilhas e 
dois jogadores, cada um deles dispondo de discos de cor diferente, por 
exemplo. 


12 REM HANOI 
cy CLS 


350 DIM ACSPIACII=SACZ)=S:AC3)=9 
40 D$="" D$=STRING$CI, 233) 
&w INFUT “NUMERO DE DISCOS (MENOS DE 89? 


“vn 

, 

o IF Nºt OR N>7 THEN DÓ 

70 FOR I=0 TO N-1 

BO ACII=VALCSETRECACIDI+ASTRECN—T DO 

94 NEXT 1 

Iggy CLS 

Ng LOCATE 1,15:FEN S:PRINT D$:LOCATE 13 
(15: PRINT D$:LOCATE 25, IS:PRINT D$ 

1Z0 LOCATE 5,15: PAPER Z:PRINT "7": LOCATE 
17, 15:PRINT "22: LOCATE 23, 15: PRINT “3º: 

PAPER G:FEN 3 

10 FOR I=6 TO es 1 

i4go FOR J=1 TO 

e E$=RIGHT$CS STR$CACIDO, LENCSTR$CACI 99) 
168 IF LENCE$)2>1+] THEN LOCATE 128]-16,1 

4-I: PRINT LEFT$ECDS, VALCMID$ECES, 1+2,1))) 
170 NEXT 3 

180 NEXT I 

IS%4 PEN 1 

oo LOCATE 1, IS: PRINT CHR$C1S)/ FC INFUT “T 

ORRE DE FARTIDA? ";D 

elo IF D>3 OR Dx] THEN 200 

cio IF A(D)=9 THEN Zo0 

220 LOCATE 1,20: PRINT CHR$CIES PU INFUT O "T 

ORRE DE CHEGADA? :”4A 

edo TF A=D THEN 200 ELSE IF (ASI OR A>3) 
THEN 230 

<Q EBS=RIGHTECSTRECAÇDOD, LENCSTRECACÇD) 3) 

-=15 

ob CE=RIGHTECSTRECACADO, LENCSTR$CAÇAD 3) 

ef) 

270 IF RIGHT&CES, ID>RIGHT$CC$S,1) THEN Z0 


ú 

260 ACAI=VALCCS+RIGHTSCES, 15) 

“90 ACDI=VALCLEFTSC BS, LENCE$)-15) 

3404 SOUND 1,478: SOUND 1, 426: SOUND 1,379! 
GOTO 166 
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Corrida de cavalos 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: azar (vários jogadores). 
Dificuldade do jogo: nenhuma. 


O JOGO: 

Far-se-á entrar um número de cavalos compreendido entre 1 e 9,e 
a corrida começará imediatamente. 

Poderá haver chegadas ex aequo, caso em que se deve ter em con- 
ta que o AMSTRAD se ocupa de fazer avançar os cavalos uns após ou- 
tros, começando pelo número 1; a classificação será impressa no écran 
à medida que os cavalos vão chegando (e tendo em conta os ex aequo.) 


O PROGRAMA: 

Um primeiro ciclo não formal (80-170) imprime os cavalos na sua 
posição de partida. 

Um segundo ciclo, I (100-180), fá-los-á avançar; a posição de cada 
cavalo será referenciada por um número ou por uma letra numa variá- 
vel alfanumérica AS. 

A linha 120 fará avançar os cavalos. 

A linha 140 faz a gestão das chegadas. 

A linha 150 realizará as impressões. 

A rotina 240-280 faz avançar o contador das chegadas e imprime 
os resultados. 


PARA JOGAR: 

Faz-se correr o programa com RUN. 

À pergunta NUMERO DE CAVALOS?, responde-se com um in- 
teiro de 1 a 9, seguido de ENTER. 

Em seguida a corrida desenrolar-se-á automaticamente. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á desenhar os cavalos com um grafismo mais cuidado, e 
diferenciá-los por números. 

Poder-se-á também imaginar todo um sistema de apostas, a reali- 
zar antes do início de cada corrida. 
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1a REM CORRIDA RE Rieda raias 
2% RANDOMIZECTIM 
E) E ,9: INK 4, 26 


€ 
bo INFUT “NUMERO DE CAVALOS? "ANTIF NcaQ 
OR N>9 THEN 5g 


60 Ag="" Pay A=g!T=] :K=6 
70 J=T 

80 Ag=AS+"0"  1=] 

30 GOTO 150 


Igo FOR I=] TON 

Wo IF MID$CAS, IL, 1)o="k” THEN 180 

1Z0 BE=CHRSCASCCMIDSECAS, 1, 1))+INTCRNDKS+ 
RD, 

Eme ERRA PRO 


146 IF Eg>="k” THEN GOSUE 246 
154 LOCATE ASC(MIDECAS, 1,13)- 46 , 2K1+3: PR 
INT " 1 PAPER Si PRINT I:PAPER O 
16% SOUND 1,159,1, 8, 1:FOR D=] TO 68: 
oa D 
176 IF k=0 THEN J=]+1: IF J<=N THEN 66 EL 
SE K=1:GOTO 186 
lo NEXT 1 
196 P=P+T 
Loo T=y 
“ló IF A<N THEN 106 
Z2ô SOUND 1,473: SOUND 1,:31S3: SOUND 1,379 
eso LOCATE 1,24: END 
Ro RCE RENE SA asd IS SE NA AEE 
-=13 
250 LOCATE 1, 2K1+3:FEN Z:PRINT FIPEN 1 
260 T=1: SOUND 1,239,% 
270 AzA+T 
220 RETURN 
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Engatem os vagões 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: solitário. 
Dificuldade do jogo: fácil. 


O JOGO: 

É necessário engatar, o mais rapidamente possível, a locomotiva 
ao seu vagão, que aparecem ambos, no início da partida, em dois pon- 
tos do écran mais ou menos afastados. Para isso deverá deslocar-se a 
locomotiva indicando a sequência dos movimentos a efectuar (sob uma 
forma codificada: A para uma casa para o alto; B para uma casa para 
baixo; D para uma casa para a direita; E para uma casa para a es- 
querda). 

Teclar-se-á, por exemplo, BBEDAAA. 


O PROGRAMA: 

As linhas 40 a 70 desenham a locomotica e o vagão. 

A posição inicial da locomotiva é definida pelas linhas 90 e 100, a 
do vagão pelas linhas 110 e 120. 

A linha 130 evita que essas posições sejam inicialmente muito pró- 
ximas uma da outra. 

As linhas 150 a 190 realizam a impressão do vagão e da loco- 
motiva. 

O teste de fim de partida é feito na linha 200. 

A utilização da janela 1 permite proteger o écran contra um scroll- 
ing (rolamento do écran) provocado pela impressão no écran de uma 
cadeia R$ (linhas 25 e 210) demasiado longa. 

Os movimentos a efectuar são feitos entrar numa variável alfanu- 
mérica R$, na linha 210, e são descodificados num ciclo I (240-280), 
para serem executados na linha 270. 


PARA JOGAR: 

A ordem RUN permite imprimir no écran as posições de partida 
da locomotiva e do vagão. 

Tecleia-se então a série de deslocações a efectuar, sob a forma 
DDDAAABAEE, seguida de ENTER. 

A locomotiva será então apresentada na sua posição, e recomeça- 
-se até que ela esteja engatada ao vagão. 

Obter-se-á então a impressão da pontuação, no écran. 
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EXTENSÕES POSSÍVEIS: 

Será interessante prever a perda da partida se, por acidente, no de- 
correr da deslocação, a locomotiva colidir com o vagão. 

Poder-se-á também prever vários vagões e uma ordem de engate, 
Jogar com vários jogadores com várias locomotivas, desenhar vias fér- 
reas, introduzir obstáculos a contornar obrigatoriamente por um lado 
determinado, etc. 


10 REM ENGATEM OS VAGÕES 

£0 RANDOMIZE(CTIMES 

“5 WINDOW &1,1,40,24,25 

30 DEFINT L,W 

40 DE=CHREC 1 9)+CHR$CT40)+CHR$ECIST) 
50 AB=CHR$C AZ) +CHR$C 4) +CHR$CTAS) 
O Eg=CHR$CIAT2+CHR$EC140)+CHR$CITADO 
70 Cé="0 0" 

Bo N=0 

30 Ly=1+RNDk32 

100 LX=2Z+RNDETS 

WO Wy=]+RNDES2 

120 WX=2+kNDAIS 

130 IF ABSCLX-WX)<4 THEN SO 

140 CLSPRINT CHR$CEZ)+CHR$CT) 

150 FEN 2; LOCATE WY, WX: PRINT E$ 

160 LOCATE WY, WX+IPRINT C$& 

170 FEN SLOCATE LY,LX-V:PRINT D$ 

1%0 LOCATE LY,LX:PRINT A$ 

1390 LOCATE LY,LX+ICFRINT C& 

200 TF LX=WX AND Wy=Ly-3 THEN 300 

210 CLS RIC INFUT &1,º CAMINHO A SEGUIR (D 
EEABE...37 CR$ RG=UPPERSCAS) 

220 X=0:Y=0 

230 N=N+1 

“40 FOR I=] TO LENCR$) 

250 X=-(MIDECRE, L,129="B” AND LXX22)+(MID 
GCRE, LT, lo="A” AND LX>Z) 
RO Y=-(MID$ECRE, 1, 1)o="D” AND LY<35)+CMID 
$CR$, DL, 1o="E” AND LyY>1) 

270 LX=LX+XLY=Ly+Y 

2E0 NEXT 1 

“30 GOTO 140 

00 CLS RFISPRINT HI, TABCS) "BRAVO! CONSE 
GUIU EMPSN;" JOGADAS” 

210 SOUND 1,478: SDUND 1,319: SOUND 1,379 
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O lobo e os cordeiros 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: reflexão (dois jogadores). 
Dificuldade do jogo: média. 


O JOGO: 

Trata-se de um jogo bastante conhecido que pode ser praticado 
indiferentemente num tabuleiro de xadrez de 8 por 8 ou de 10 por 10. 
É aqui apresentado numa versão para um tabuleiro de 8 por 8 casas; 
um dos jogadores escolhe ser o lobo, que se desloca casa a casa em 
cada jogada, segundo as diagonais, permanecendo nas casas pretas, e 
que pode avançar ou recuar. Os cordeiros deslocam-se igualmente so- 
bre as casas pretas, em diagonal, mas não têm o direito de recuar. As 
casas já ocupadas são interditas (não se pode tomar peças) e não há 
saltos. 

O lobo ganha se consegue chegar à linha de base antes de todos os 
cordeiros terem ocupado a linha do topo; os cordeiros ganham neste 
último caso, ou se conseguirem bloquear o lobo. 


O PROGRAMA: 

Uma janela com o número 1, definida na linha 20, permite prote- 
ger a apresentação no écran. 

Uma variável A$, na linha 40, contém as posições de partida. 

O ciclo I (80-170) desenha o tabuleiro, e as linhas 190 a 220 posi- 
cionam o lobo e os cordeiros. 

A linha 230 faz a gestão da mudança de jogador. 

A linha 250 imprime no écran JOGO DO LOBO, se é a vez do 
jogador que manipula o lobo, e JOGO DOS CORDEIROS no caso 
contrário. 

As linhas 280 a 300 ou 310 a 320 analisam a resposta, em função 
do respectivo jogador. 


PARA JOGAR: 

RUN inicia o jogo, que fica parado aguardando uma entrada: 0 e 
ENTER, se queremos que sejam os cordeiros a começar, ou 1 e EN- 
TER, se quisermos que seja o lobo. Depois disto é apresentado o tabu- 
leiro e é impressa a frase JOGO DO LOBO (A, S, Z, X), para o lobo, 
ou JOGO DOS CORDEIROS (ND e NE), para os cordeiros. 

Os cordeiros respondem com um número, seguido de D ou E (pa- 
ra direita ou esquerda). Assim, 2D provoca a deslocação do cordeiro 
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número 2, que sobe em diagonal uma casa para a direita. A deslocação 
é efectuada, após o que se obtém uma pergunta idêntica para o lobo, 
que responderá teclando A, S, Z ou X, consoante a direcção escolhida: 


A 
io STR dá 
Deverá ter-se o cuidado de não sair do tabuleiro e de não cair em 


cima do adversário, porque não estão previstos controlos para esses 
casos. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á prever uma referenciação das casas, um grafismo mais 
cuidado, controlos para não ultrapassar os limites do tabuleiro, para 
não cair numa casa já ocupada... 

Poder-se-á também pensar em jogar num tabuleiro de 10 por 10 
casas, o que aumenta ligeiramente, para os cordeiros, a dificuldade do 
jogo. 

Mas a extensão que tem mais interesse executar será certamente a 
realização de um programa que permita ao AMSTRAD comportar-se 
como um adversário à altura, quer como lobo quer como cordeiros 
(e, neste caso, será possível definir uma estratégia que permita que o 
AMSTRAD consiga ganhar). 


to REM O LOBO E OS CORDEIROS 

20 WINDOW H1,28,40,9,15 

30 INPUT “CORDEIROS (0) OU LOBO (19)?":5 
dO Ag="EIE3B5E714” 


50 CLS 
60 LOCATE 1,Z5!PRINT” AE CDE 
FG H”; 


CR I=1 TO G:LOCATE Vo BKI-IEPRINT IN 

20 FOR 1=1 TO & 

S0 FOR J=1 TO & 

100 LOCATE 3X], 3%1-2 

Wo IF CI+]) MOD 2=0 THEN PAPER Z:ELSE P 

AFER 3 

120 FOR N=) TO 3 

Bjo Rad STRINGÊC3, 233); CHR$C 10); STRING 
(3,8); 

140 NEXT N 

150 PAPER O 
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160 NEXT J 
120 NEXT I 
180 PEN 3 
130 FOR I=1 TO 5 
200 LOCATE SKVALCMIDECAS, 2K1,1))+1, SKVAL 
(MID$CAS, 2KI-1,1)53-] 
210 IF 14>5 THEN PRINT RIGHT$ECSTR$CID,1) 
HELSE PRINT OL”; 
260 NEXT 1 

230 PEN T:CLS EIIS=ABSCS—) 
240 PRINT E1,” JOGO” 
250 IF S=0 THEN PRINT &1, DO LOBO". PRI 
NTHI,! (A,S,2,X)” ELSE PRINT *1,"DOS CO 
RDEIROÓS” PRINT EA ND OU NE” 
260 LOCATE R1,6,5: INPUT RI," ,R$:IF S=] 
THEN GOTO S10 
270 C=10 
260 A=VALCRIGHTECAS,2)2+(C+17 AND R$="X") 
+(C-1 AND R$="2"5 
290 A=A-(C+1 AND R$=78")-(C-1 AND R$="5" 


) 

300 GOTO 330 

310 C=2kKVALCLEFTECR$E,1)) 

320 A=VALCMIDECAS,C-1,2))-C9 AND RIGHTSC 
R$,12)="D")-(11 AND RIGHT$CR$, 1D="E"”) 

230 MID$CAS,C-1, Z)=RIGHTECSTRECAD, 2) 

340 GOTO BO 


AV. — 10 
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Nível 4 


Nome do programa 


Temas e particularidades 


Tiragem de dados ..... 
A bomba ................ 
Chapéus ................. 
Desenho de dados ..... 
O macaco ............... 


O jogo do 15 ........... 
Teclado .................. 


Destreza ................. 
Anagramas ............. 
«Zombies» .............. 
Quadro mágico ........ 
«Decómaco» ........... 


Evasão .................. 


ALTAVÊS Samiisssasisarooo 
Calculadora ............ 
Caça ao submarino .... 
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Suficientemente flexível para ser utilizado 
onde for necessário. 

Poderá descobri-la a tempo? (Um joga- 
dor.) 

Seja bom observador e terá êxito (dois jo- 
gadores). 

Melhorar os seus jogos de dados incorpo- 
rando este programa. 

Um jogo de letras para dois jogadores, em 
que é necessário ter bons reflexos. 

Um jogo de reflexão utilizando números. 
Aprenda a escrever à máquina, divertindo- 
-se ao mesmo tempo. 

Jogo de reflexos para um jogador, muito 
visual. 

Um bom jogo de reflexos, para dois joga- 
dores. 

Um pouco fantástico, mas muito visual 
(um jogador). 

Prepare as suas criações gráficas, sem pa- 
pel nem lápis. 

Para lhe evitar uma grande «seca» no jogo 
«Nicómaco». 

Precisará de muita sorte para conseguir. 
Descobrir uma sequência de números cada 
vez mais longa. 

Não sabe desenhar? Deixe que o seu com- 
putador o faça. 

Um jogo de estratégia para dois jogadores. 
Um programa de simulação muito realista. 
Precisará de bastante reflexão e de muita 
sorte. 


As técnicas de animação 
elementar 


DESCOBRIR UM CARÁCTER TECLADO: INKEY$ 


O princípio do jogo gráfico, em animação, é deixar o jogo desen- 
rolar-se sozinho, de certa maneira, durante certo tempo, enquanto não 
houver qualquer intervenção do jogador. 

Logo, é preciso dispor da possibilidade de observar se houve ou 
não intervenção do jogador, sem com isso interromper o desenrolar do 
programa. 

No Basic AMSTRAD, esta propriedade é oferecida pela função 
INKEYS$, que efectua uma perscrutação das teclas do teclado e regista 
o nome da última tecla usada. 

INKEY$ poderá ser utilizada de duas maneiras: 


* Num ciclo (realização de um movimento). Toma-se IN- 
KEY$ e faz-se um teste para uma eventual saída do ciclo. 

e Numa pausa: enquanto INKEYS$ estiver vazia (não foi usa- 
da qualquer tecla) mantém-se a pausa, que acaba quando 
for premida uma tecla. 


Por vezes será necessário premir várias vezes a tecla para ser to- 
mada em conta. 


DESLOCAÇÃO DE OBJECTOS DE BAIXO PARA CIMA NO 
ECRAN: «SCROLL» 


É difícil, trabalhando em Basic, gerar a deslocação simultânea de 
vários objectos no écran (acaba-se por se obter um movimento aos 
sacões, devido a um proibitivo tempo de deslocação). 

O AMSTRAD realiza automaticamente um «scrolling» (quer 
dizer uma deslocação do conjunto da imagem) para cima, quando se 
escreve na última linha da parte inferior do écran. 
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Esta propriedade foi aproveitada em diversos jogos. Com efeito, 
ela permite deslocar uma linha para cima os diversos objectos (textos 
ou gráficos) presentes no écran num dado momento. A linha do topo, 
evidentemente, perde-se. 

Se um objecto tem de permanecer imóvel no écran, será necessário 
apagá-lo na sua nova posição e recolocá-lo na posição inicial. 
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Tiragem de dados 


REFERÊNCIAS 
Dificuldade de programação: nenhuma. 
Categoria de jogo: lançamento de dados. 
Dificuldade do jogo: nenhuma. 


O JOGO: 

O programa proposto não realiza um jogo propriamente dito, mas 
poderá ser utilizado como rotina em numerosos jogos. 

Oferece simplesmente a possibilidade de lançar de 1 a 9 dados, 
pela simples pressão de uma tecla. Os dados são, seguidamente, apre- 
sentados no écran com um grafismo muito simplificado. 


O PROGRAMA: 

O ciclo WHILE/WEND (60-80) toma o carácter premido no te- 
clado e a linha 100 transforma-o em número (se isso não for possível, o 
programa recusa a entrada). 

Uma variável D, não dimensionada, recebe o valor indicado por 
cada dado (linha 150). 

Um ciclo, J (120-140), é utilizado para desenhar um fundo e um 
outro ciclo, I (110-170), serve para a tiragem (tiragem na linha 150 e 
impressão na linha 160). 

A linha 190 oferece a possibilidade de refazer uma tiragem; não é 
indispensável. 


PARA JOGAR: 

Faz-se correr o programa com a ordem RUN e obtém-se a impres- 
são no écran da mensagem NUMERO DE DADOS A LANCAR?, a 
que se responde teclando um algarismo. 

O resultado é então automaticamente apresentado no écran; basta 
premir qualquer tecla para recomeçar o programa. 

Para parar é necessário premir ESC duas vezes. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á, evidentemente, utilizar a base fornecida por este pro- 
grama para a realização de qualquer jogo que use dados («421», 
«Yamºs», «Craps», etc.). 
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10 REM TIRAGEM DE DADOS 
20 RANDOMIZECTIME) 
0 Rê O, 9: INK Vo 2Z6: INK 2,0 


C 
BO LOCATE Tl: PRINT "NUMERO DE DADOS A LL 
ANCAR?" iAg=” 
AO WHILE Ager OR A$g:"1” OR A$2"9” 
70 AS=INKEY$ 
20 WEND 
390 FRINT CHR$C20); : PAPER 1:FEN S:FPRINT A 
G:FPAPER 3. PEN 2 
100 N=VALCAS) 
mo FOR I=1 TON 
1z0 FOR J=1 TO 3 
130 LOCATE 4kI1-3,82+]: PRINT * o 
140 NEXT J 
150 DC L)=]+INTCRNDXE) 
ne aneis 4%I1-Z, IO: PRINT RIGHTECSTRECDC 
33, 
O NEXT I 
PAFER OPEN 1 


17 
130 
180 GOTO 50 
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A bomba 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: solitário. 
Dificuldade do jogo: média. 


O JOGO: 

Deverá descobrir, com a ajuda de um detector especializado, um 
caixote radiactivo armadilhado, colocado num quarto de hotel por um 
viajante mal-intencionado. Apenas um problema, mas de vulto: o ho- 
tel tem um milhão de quartos (100*100*100). 

O seu detector apresenta no écran, permanentemente, um sinal 
que o informa da proximidade da bomba, e o tempo que lhe resta é 
também permanentemente apresentado no écran, decrescendo de 10 
em 10. 

Poderá descobrir a bomba antes da explosão? 


O PROGRAMA: 

As janelas 1 e 2, definidas nas linhas 40 e 50, servirão para apre- 
sentar o sinal e o tempo. 

Uma variável numérica R, não dimensionada, contém as três 
coordenadas que definem a posição do jogador. 

A posição do quarto que contém o caixote armadilhado é definida 
por uma tiragem aleatória de três variáveis, A, Be €, na linha 70. 

O ciclo I (90-110) desenha o detector. 

O sinal de proximidade é calculado na linha 130 e a linha 140 per- 
mite a apresentação das coordenadas do quarto a descobrir, no caso de 
se ter perdido o jogo. 

A linha 150 permite a apresentação simultânea do sinal e do tem- 
po restante a decorrer. 

A linha 160 provoca cada vez mais frequentemente a chamada à 
rotina de som na linha 350. 

A linha 170 desconta o tempo. 

A linha 180 controla se o caixote foi ou não encontrado. 

O ciclo I (220-260) permite fazer entrar novas coordenadas, utili- 
zando a rotina colocada nas linhas 290 a 340. 


PARA JOGAR: 
Depois de se fazer correr o programa com a ordem RUN, são im- 
pressos no écran o sinal e o tempo (em princípio 200). 
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O jogador está então na posição x=0, y=0, z=0, e dever-se-á 
introduzir sucessivamente as coordenadas x, y, z do quarto a explorar. 
Far-se-á, por exemplo, 13 e depois ENTER, 45 e depois ENTER, etc. 

O novo sinal é então apresentado, e o tempo é decrementado 
de 10. 

Continuar-se-á assim, quer até ao bom resultado (paragem do jo- 
go e fim do programa), quer até à aparição de três números (x, y, 2) 
sem saída do programa, o que significa que se perdeu a partida. 


EXTENSÕES POSSÍVEIS: 

Será sem duvida indispensável melhorar o grafismo, acrescentar 
uma explosão (sonora e visual) para simbolizar o rebentamento da 
bomba, apresentar simbolicamente a posição do hotel, etc. 


10 REM A BOMBA 

20 RANDOMIZECTIME) 

O pe SS$CXIZRIGHTECSTRECX), LENCSTRS 
40 WINDOW $1,13,19,7,7:WINDOW 42,22, 24,7 


17 
50 PAPER W1, 1:FEN R1,3:PAPER 42, 2:FEN 42 


BO L=100: T=200 
70 A=INTCRNDAL):B=INTCRND&L):C=INTCRNDAL 


ão CLS:FEN 3 

90 FOR I=1| TO 3 

100 LOCATE 11,5+1: PRINT STRING$C1E, 233) 

Wo NEXT I 

120 FEN 

130 S=ABSCCA/L+EB+CRLI-CROTI/LARCED+ARCSIX 
L)): S=ROUND(S, 2) 

140 IF T=0 THEN PRINT "PERDEU. A SOLUCAO 
|: 2 /A;B;C: SOUND 1,253:SOUND 1,323:SOUND 

1,478, 20: END 

150 CLS RILPRINT R1,FN SS$CSI; CLS RZUFR 
INT H2,FN SSgCTo; 

160 EVERY INTCT/2) GOSVE 350 

170 T=T-INTCSQRCL)) 

180 IF S=0 THEN LOCATE 1,21: FAPER RE 


S:PRINT “BRAVO”: SOUND 1,475:SOUND 1,319: 
SOUND 1,379:END 

190 LOCATE 1, I4:PRINT " — x" 

200 LOCATE 1, 16:FRINT " - 7? 

Z10 LOCATE 1,IB:PRINT ” —- 21" 

220 FOR 1=1 TO 3 

230 R$="" 


240 GOSUE 280 

250 RCI)=VALCR$) 

260 NEXT 1 

270 GOTO 130 

a LOCATE 7, 2%1+1Z: PRINT CHR$C243);CHR$ 
( 35 

290 WHILE AS<>CHR$CIS 

300 A$=INKEY$ 

310 PRINT A$; 

320 R$=R$+AS$ 


330 WEND 
E Ag="":LOCATE 7, 281+1Z:FRINT ” “:RETU 
N 


350 SOUND 2,159, 1: RETURN 


Chapéus 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo de reflexos, para dois jogadores. 
Dificuldade do jogo: fácil. 


O JOGO: 

A ideia é muito simples: duas personagens deslocam-se no écran, 
uma em direcção à outra, e cruzam-se. No momento em que se cruzam 
é possível que troquem de chapéus. Trata-se de ser o primeiro a dizer 
se houve ou não troca de chapéus aquando do cruzamento. 


O PROGRAMA: 

A linha 30 contém o desenho dos dois chapéus [nas duas variáveis 
alfanuméricas C$(1) e C$(2)). 

A linha 40 contém os símbolos que permitirão desenhar as perso- 
nagens, sob a forma do seu código ASCII de três algarismos. 

A linha 60 permite a troca dos chapéus, se ocorrer. 

A variável T da linha 70 serve para referenciar se houve ou não 
troca de chapéus. 

O desenho das duas personagens é realizado pelo ciclo L (90-80). 
O ciclo encaixado I (120-170) realiza o desenho linha por linha, e o ci- 
clo N (140-160) assegura o desenho de cada linha. 

A linha 190 permite a apresentação simultânea dos dois chapéus. 

A sua deslocação é realizada pela linha 200. 

O teste que permite ou não a mudança dos chapéus é efectuado na 
linha 220. 

As linhas 250 a 310 determinam se o primeiro jogador que premiu 
uma tecla ganhou ou perdeu. 


PARA JOGAR: 

Fazer correr o programa com RUN. 

As personagens começam imediatamente a deslocar-se uma em di- 
recção à outra. 

O jogador da esquerda dispõe das teclas le 2 e o da direita das te- 
clas 9 e 0. 

Se houve troca de chapéus, as teclas a premir serão 1 (à esquerda) 
e O (à direita). 

Se não houve troca de chapéus será necessário, para ganhar, ser o 
primeiro a carregar no 2 (à esquerda) e no 9 (à direita). 
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A mensagem impressa no écran indicará então BRAVO, ES- 
QUERDA ou BRAVO, DIREITA, ou, ainda, PERDEU, ESQUER- 
DA ou PERDEU, DIREITA. 


EXTENSÕES POSSÍVEIS: 

Será possível prever apresentação a cores, com mais complexa ani- 
mação das personagens. 

Poder-se-á também complicar o jogo a nosso bel-prazer com vá- 
rios objectos trocados de modo aleatório (será necessário, nesse caso, 
encontrar a lista completa deles). 


10 REM CHAFEUS 
ae RANDOMIZECTIMES: PRINT CHR$CZZ);CHR$CT 


30 C$&C1)=CHR$C 222) +CHR$CRO7I+CHR$C E 
HR$C2)=CHR$C214)+CHR$C203)+CHR$C 2]! 
AG A$="0322240321501591561491491491! 
cp A raca ca 
BO XC1)=]Xego=33 

EO D$=C$C1)!CEC1)=C$CZ):CECZ)=D$ 
70 T=AESCT-1) 

80 CLSCINK 1,1 

90 FOR L=1 TO & 

100 PEN J:LOCATE XCLo, Z:FRINT C&clo 

Wo PEN 1+L 

1zo FOR 1=1 TO & 

130 LOCATE X£L O, I+2 

140 FOR N=0 TO & 

ia FRINT CHR$CVALCMIDSCAS, SKI-E+HZEN, 3) 


160 NEXT N 

170 NEXT 1 

180 NEXT L 

190 INK 1,24 

200 XCTI=ROTI+B E RCZ)=XC 2) RI INK 1,24 

210 TE=O:WHILE TE<200: TE=TE+) : WVEND 

220 IF X(1)=X(2) AND RND<0.5 THEN 60 

230 IF Xc2)=-] THEN FRINT CHR$C7);: T=0:G 


TO 50 

240 R$=INKEYS: FA R$&="” THEN &0 

Z50 PRINT CHR$C22);CHR$ECODPLIF XCTDs=XCE 
» THEN 280 

2E0 PAFER Z:FEN FILOCATE 13,23: IF (R$="1 
” AND T=0) OR cR$="2” AND T=1) THEN FRIN 


T "BRAVO, ESQUERDA” | SOUND 1,478: SOUND 1, 

379: SOUND 1,:319:FPAFER O: END 

a7o IF cR$="0" AND T=0) OR cR$="9" AND T 
=1) THEN PRINT “BRAVO, DIREITA”: SOUND 1, 
47E: SOUND 1,373: SOUND 1, 319:FAFER O: END 
z80 PAPER 3:PEN IILOCATE 14,23: IF R$=2º 
OR R$="1" THEN PRINT "FERDEU, ESQUERDA” 
z90 IF R$="5” OR R$="0" THEN PRINT “PERD 
EU, DIREITA” 

300 FOR 1=1 TO Z00 STEF 2:SOUND 1,1,1:NE 


310 FAFER O 
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Desenho de dados 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: lançamento de dados. 
Dificuldade do jogo: fácil. 


O JOGO: 

O programa proposto é interessante sobretudo pelo seu lado grá- 
fico, porque permite representar no écran, de modo muito convenien- 
te, de um a cinco dados, utilizando uma técnica de desenho um tanto 
particular. 

Cada resposta à pergunra NUMERO DE DADOS? provoca ime- 
diatamente um novo lançamento do número de dados indicado. 


O PROGRAMA: 

A linha 70 permite controlar se houve ou não acção sobre uma te- 
cla de 1 a 15. 

As linhas 90 e 100 inicializam as duas variáveis de desenho dos 
dados. 

No ciclo I (110-200), as linhas 120, 130 e 180 desenham o quadro 
do dado. 

A linha 140 realiza a tiragem, e o ciclo J (150-190) desenha os 
pontos relacionados com a tiragem realizada (chamando as variáveis 
A$ e B$). 


PARA JOGAR: 

Faz-se correr o programa com a ordem RUN, e à pergunta NU- 
MERO DE DADOS? responde-se carregando numa tecla de 1 a 5. Os 
dados pedidos são então representados e volta a ser feita a pergunta 
NUMERO DE DADOS?. 

Bastará teclar ESC duas vezes para sair do programa. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á conservar a parte de desenho utilizada neste programa 
para realizar todas as espécies de jogos de dados, com uma representa- 
ção gráfica de qualidade conveniente e fácil de modificar se houver ne- 
cessidade. 
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10 REM DESENHO DE DADOS 

20 RANDOMIZECTIMES 

30 INK O,9: INK 1,26: INK 2,15: INK 3,0 

MO CLS 

Dosh VILOCATE 1,15: PRINT "NUMERO DE DA 
60 AS=INKEV$!IF Ag="" THEN €0 

70 N=VALCABI IF Nº7 OR N>5 THEN 40 

80 CLS:PEN 3 

30 Ag=STRING$C7, 32) +CHR$C23] )+STRINGECL, 
e )+CHREC A ma on Ra RES 19+CH 
R$C231)+s STRINGSCS, due 3 +CHR$CLS 

100 Eg="121:3]4:32451] 5525555” 

Ho FOR I=1 TO 

tão LOCATE BRI- PRINT CHR$C150); STRIN 
G$C5, 154), CHR$C 

130 LOCATE GéI- PRINT CHR$C147);STRIN 
GEC 5,154); CHR$EC 
140 X=INTCRNDXE+ 
150 FOR J=1 TO 5 

160 IF Jaz THEN S=BAVALCMID$ECES, ZECX—TO) 


4 
179 IF J<=3 THEN FEN Z:LOCATE SHI-E, 2kT+ 
"PRINT MID$CAS,S, E) FPEN 3 
180 LOCATE B&1-7, +53! PRINT CHRECIAGIELOC 
ATE EBXI-1, J+3: PRINT CHR$CT4S) 
190 NEXT 3 
200 NEXT I 
210 GOTO 50 


FO si2o 
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O macaco 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo de reflexos (dois jogadores). 
Dificuldade do jogo: difícil. 


O JOGO: 

Inspira-se na já antiga ideia do macaco que, batendo ao acaso nas 
teclas de uma máquina de escrever, tem hipóteses não nulas de escrever 
um texto significativo. 

O papel do macaco é aqui desempenhado pelo AMSTRAD, que 
vai imprimir no écran grupos de três a seis letras durante um tempo re- 
lativamente curto. 

Se um dos jogadores calcula que pode conseguir fazer uma pala- 
vra com as letras propostas deve carregar rapidamente na sua tecla de 
Jogo (1 ou 0). 

A palavra deverá então ser aceite ou recusada pelo adversário, que 
responderá à pergunta CERTO OU ERRADO? 

Cada palavra certa dá um ponto, cada palavra errada tira um 
ponto. 


O PROGRAMA: 

A linha 40 contém uma lista V$ das vogais e uma lista C$ das con- 
soantes mais correntes. 

Será possível modificar estas duas listas para aumentar, por exem- 
plo, a frequência de aparição de certas letras (poder-se-á, assim, pôr 
dois E em V$ ou dois R em C$, etc.). 

A linha 50 define o comprimento da palavra (em princípio, de três 
a seis letras, mas pode-se igualmente modificar este comprimento). 

O ciclo I (80-130) permite a confecção de uma «palavra» tomando 
uma letra quer no alfabeto completo, quer na lista C$ (linha 100), quer 
na lista V$ (linha 110). 

A linha 150 temporiza a aparição do resultado. 

A linha 170 faz a gestão do fim da partida, com a impressão da 
pontuação. 

A linha 180 verifica se um dos jogadores reagiu. 

Por fim, as linhas 210 e 220 contabilizam os pontos de cada joga- 
dor. 
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PARA JOGAR: 

Faz-se correr o programa teclando RUN. 

A primeira série de letras é então apresentada no écran. O jogador 
da esquerda deverá teclar 1 se vê que pode realizar uma palavra, o jo- 
gador da direita deverá teclar O para o mesmo fim. 

Se nenhum dos dois carregar na sua tecla, passado algum tempo 
será apresentada outra série de letras. 

Se um dos jogadores usou a sua tecla aparece a pergunta (C)ER- 
TO ou (E)JRRADO?, impressa a azul para o jogador da esquerda e a 
encarnado para o da direita. 

Responder-se-á C se a palavra estiver correcta ou E se estiver erra- 
da, seguido de ENTER. 

Os pontos são então calculados pelo AMSTRAD e é apresentada 
a série de letras seguinte. 

Para sair do programa basta teclar P em vez de 1 ou 0; a pontua- 
ção final é então apresentada. 


EXTENSÕES POSSÍVEIS: 
Poder-se-á modificar o comprimento das palavras, a frequência 
de aparição das letras, o desconto dos pontos, a regra do jogo, etc. 


10 REM O MACACO 

z0 RANDOMIZECTIME) 

30 MODE O 

40 A=0:E=0:V$=" AEIOU” ;C$="ECDGLMNPRSTV” 

50 X=INTCRNDEM+3) 

[48] Mg= Mo 

70 CLS 

26 FOR I=1 TO X 

50 E$=CHR$CINTCRNDEZE+E5) ) nes 
100 IF RND£O.4 THEN E$=MID$CC$, INTCLENCC 

$)$RND+12,1) Eae a 
NO IF RND£O.5 THEN E$=MID$CVS, INTCLENCC 

$)$RND+12,1) 

M$=M$+E$ 

130 NEXT I 

140 LOCATE (Z0-LEN(M$)2/Z2,6:FEN 6 

7:PRINT M$: SOUND 1,475:SOUND 1,42 
1, 379:FAFER O:FEN | 

150 TE=0!WHILE TE<500: TE=TE+] ! MEND 
160 AS=INKEY$ Ee isa 
170 IF Ag="P” THEN MODE 1:LOCATE 4,1Z:FE 

N Z:PRINT "PONTUACAO DE A! ;A/ IPEN SÍ:PRI 

NT "- FONTUAÇAO DE E:”;B:SOUND 1,478/SOU 

ND 1,379: SOUND 1,319: TE=0:WHILE TE<1000: 

TE=TÊ+]; WEND: END 

1B0 IF A$<>70” AND A$<>"1" THEN 50 
190 LOCATE 2, 15:PEN 3-VALCAS) PRINT "CC) 

ERTO OU CEJRRADO?” 

200 R$=INKEY$:1F R$="" THEN 200 


[HE 


Z10 A=A-(R$="C” AND Ag="1")+CR$="E” AND 
Ag="1") 
220 B=E-(R$="C" AND A$="0")+CR$="E” AND 
Ag="0") 


230 G0TO 50 
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O jogo do 15 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: reflexão (dois jogadores). 
Dificuldade do jogo: média. 


O JOGO: 

É um jogo para dois jogadores, muito antigo, outrora praticado 
nas feiras. 

Dispõe-se de um terreno de jogo de nove casas e cada jogador 
põe, à vez, um marcador com a sua cor numa casa disponível. 

Ganhará o primeiro jogador que, com exactamente três marcado- 
res, conseguir atingir um total de 15. 


O PROGRAMA: 

O ciclo I (50-80) desenha o campo de jogo, e as linhas 90 e 100 
ocupam-se da gestão da vez dos jogadores (número 1 ou 2 por cada jo- 
gador, e marcador X ou O correspondente). 

A linha 110 aguarda o lance. 

O ciclo I (120-140) verifica a validade do lance. 

A linha 150 testa o fim da partida, em caso de partida nula, e a li- 
nha 160 recusa os lances que não estejam de acordo com as regras 
(com retorno à situação inicial, linha 90). 

A linha 170 ocupa-se da impressão do lance, e a linha 180 regis- 
ta-o numa variável R$. 

A parte mais interessante do programa, que poderia servir para 
definir uma estratégia da máquina, vai da linha 200 à linha 290; são 
utilizados três ciclos encaixados para verificar se um dos jogadores ob- 
teve, com três marcadores, um total de 15 

A mudança de jogador é realizada na linha 300. 


PARA JOGAR: 

Faz-se correr o programa teclando RUN. 

O campo de jogo é impresso no écran e depois surge a pergunta 
JOGADOR 1: X? e o jogador que escolheu os X deverá fornecer o nú- 
mero da casa onde deseja jogar, se ela estiver livre, e o seu lance será 
registado. 

Obtém-se, em seguida, a impressão da pergunta JOGADOR 2: 0? 
e o segundo jogador procede do mesmo modo. 


159 


Se um dos jogadores ganha (totaliza 15 com três marcadores) 
obtém a mensagem BRAVO e a partida pára. 


Em caso de partida nula, a máquina imprime no écran a mensa- 
gem ACABOU, 
Far-se-á outra partida teclando RUN. 


EXTENSÕES POSSÍVEIS: 

O mais interessante será sem dúvida tentar definir uma estratégia 
para a máquina (tentando evitar que a máquina não jogue sempre o 5 
quando é a sua vez de começar). 

Pode-se também, evidentemente, melhorar o grafismo e introdu- 
zir efeitos sonoros para as diferentes mensagens. 


10 REM O JOGO DO 15 

20 CLS 

30 F=0 R$=" 1 23456769” 

4o 0g=" “ 4) Xxg=" ” 

50 FOR 1=0 TO 24 STEF 3 

60 LOCATE I+6, 1: PRINT CHR$C150)+CHR$C 154 
)+CHR$C 156) LOCATE 1+6, 2: PRINT CHR$C149) 
+” "+CHR$C 149): LOCATE I+E,3:PRINT CHR$C] 
A7)+CHR$CID4)+CHR$CISS) 

70 LOCATE I+6, 4:PRINT C1+39/:3 

80 NEXT 1 

30 (LOCATE V,10:FEN 2+F: PRINT “JOGADOR”; F 


106 PRINT 2 :"+CHR$CZOZ+FkZ7) 
10 Ag=INKEY$:IF A$<”1” OR A$>"9” THEN 1 


20 FOR 1I=1 TO LENCR$) 

130 IF A$=MID$CR$,1,1) THEN GOSUB 170 
140 NEXT 1 

150 IF VALCR$)=0 THEN LOCATE 15,20: PAPER 
3S:PEN V:PRINT “ACABOU”: TE=O:WHILE TE<2Z0 
O SOUND 1, TÊ, 1: TE=TE+1 : WEND: END 

160 GOTO 30 

1720 LOCATE SKI+4, 2: PRINT CHR$ECZOS+FHLZTD: 
IF F=] THEN O$=0$+A$ ELSE X$=X$+AS 

180 MID$CR$, 1, 1)="0" 

190 IF F=] THEN T$=0$ ELSE T$z=X$ 

200 IF LENCT$)<% THEN 300 

210 FOR I=] TO 3 

220 IF I=LENCT$) THEN 300 

230 FOR J=1+1 TO LENCT$) 

240 IF J=LENCT$) THEN 300 

Zz50 FOR k=]+] TO LENCT$) 

260 IF VALCMIDECTE, LT, 1))+VALCMIDECTE,],1 
D)+VALCMIDEC TSE, K,1))=15 THEN 320 

270 NEXT k 

280 NEXT J 

290 NEXT 1 

300 F=(F+1l) MOD 2 

310 RETURN 

320 LOCATE 12, 2Z0:FAFER 2+F. PEN O:FRINT 

BRAVO! JOGADOR ";CHR$CZOZ+FEKLZT) 

330 SOUND 1,478: SOUND 1,478: SOUND 1,579: 

SOUND 1,:319 

340 PEN T:FAFER O 
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Teclado 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo de reflexos (aprendizagem do teclado). 
Dificuldade do jogo: difícil. 


O JOGO: 

No écran aparece uma reprodução do teclado do seu computador; 
aparece uma seta por baixo de um carácter, cuja tecla deve ser premida 
no teclado. Quanto mais depressa se tecleia mais rapidamente se des- 
loca a seta (o tempo decorrido desde o início é apresentado no final da 
partida). 


O PROGRAMA: 

Uma varável A$, dimensionada na linha 50, conterá a lista das te- 
clas respectivas. Os valores das teclas entram na linha 60 para a linha 
110 chamados pela rotina situada na linha 300. 

Os ciclos encaixados J (120-160) e I (130-150) desenham o teclado. 

A linha 180 define a posição da seta impressa pela linha 190. 

A tecla premida é testada nas linhas 220-230 e a seta é apagada 
pela linha 250. 

As mensagens de fim de partida são realizadas nas linhas 270 e 
280. 


PARA JOGAR: 

Faz-se correr o programa com RUN. Dispõe-se então de alguns 
segundos para premir a tecla que está por cima da seta, depois será 
apresentada outra seta, etc. 

A duração da partida não é limitada; basta teclar O para obter a 
apresentação da pontuação e do tempo total. 

Fazer RUN para outra partida. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á encarar a hipótese de fazer cintilar as letras ou de as 
apresentar a cores, em vez de as indicar por meio de uma seta. Poder- 
-se-á imprimir na base do écran as letras correctamente tecladas e even- 
tualmente treinar-se a teclar um texto que desfile na parte superior do 
ecran, letra por letra. 
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10 REM TECLADO 

20 RANDOMIZECTIMES 
“o MODE O 

O T=0:S=0; P=0 

80 DIM ASGCIO,:3) 

BU S$="QUERTVUL” =] 
70 GOSUE :300 

30 S&="ASDFGHJK" J=2 
30 GOSUE 300 

100 Sê&="2XCVENM, “J=5 
mo GOSUÊ S00 

izo FOR J=1 TO 3 


140 FEN ISLOCATE ZHI+], SRJIPRINT A$CL,J) 
150 NEXT 1 

10 NEXT J 

170 T=TIME 

180 X=INTCRND&S+ 1): Y=INTCRNDAS+1) 

1390 LOCATE ZKX+Y, SAY+Z PEN XIPRINT CHR$C 


“00 FOR F=1 TO SO+RNDKEO  AS=INKEY$ 

210 IF A$g="" THEN NEXT F 

20 IF AB=ABCX,Y) THEN S=S+] 

eso IF Ag="0" THEN 270 

280 P=p+] 

“50 LOCATE ZEX+Y, Z+BAYLPRINTO? O? 

280 GOTO 180 

270 MODE 1:FEN SILOCATE E, IX: PRINT USING 
"AHH RESPOSTAS CERTAS EM KHk TENTATIVAS 


to us ,P 
280 LOCATE VI,14: PRINT USING "O SEU TEME 
O: RRRROS ROUNDCCTIME-T)/:300) 

"SOUND 1,379: SOUND 1,319: 
END 


1 

( 
290 SOUND 1,478 
300 FOR I=1 TO B:ASCI, Jo)=MID$CSE, L, ID): NE 
XT IIRETURN 
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Destreza 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo de reflexos (para um jogador). 
Dificuldade do jogo: difícil. 


O JOGO: 

Números entre O e 9 vão aparecer ao acaso em diversos pontos do 
écran. Permanecem impressos durante um tempo muito curto. O joga- 
dor deverá conseguir premir a tecla numérica correspondente enquanto 
o número está visível. 

O número teclado pelo jogador será então impresso em tamanho 
grande na parte esquerda do écran; cada resposta exacta dá dez pon- 
tos. A duração da partida é aleatória e a pontuação será apresentada 
no final. 


O PROGRAMA: 

As linhas 50 e 60 contêm, nas duas variáveis alfanuméricas C$ e 
B$, as referências que serão utilizadas para desenhar os números em 
tamanho grande. 

O posicionamento do número tirado pelo AMSTRAD é escolhido 
pelas linhas 80 e 90, e o número é tirado na linha 110. 

A linha 120 realiza a impressão, e a linha 130 determina a duração 
da apresentação. O ciclo WHILE/WEND (70-170) define a duração 
do jogo, e o fim da partida é tratado pela linha 190. 

O ciclo I (220-270) realiza o desenho em tamanho grande do 
número teclado pelo jogador e imprime-o na janela &2, definida na li- 
nha 30. 

O controlo da exactidão do resultado é efectuado pela linha 280. 


PARA JOGAR: 

Faz-se correr o programa com RUN e, após uma curta pausa, 
aparece um primeiro número, perto do centro do écran. O jogador de- 
verá reagir suficientemente depressa, enquanto o número permanece 
no écran, e premir a tecla respectiva. O número que ele teclou será 
então desenhado na parte superior esquerda do écran, em tamanho 
grande. 

Se o resultado for exacto, o jogador marcará dez pontos. 

O tempo de duração do jogo será função dos números que apare- 
cerão no écran. 
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No fim da partida será apresentada a pontuação. 
É possível parar o jogo em qualquer momento, teclando ESC 
duas vezes. 


EXTENSÕES POSSÍVEIS: 

Pode-se pensar em modificar o jogo para permitir a participação 
de vários jogadores, eventualmente modificando a apresentação e 
codificando as teclas que serão postas à disposição de cada um dos jo- 
gadores. 

Poder-se-á também retirar pontos por cada resultado errado, mo- 
dificar as regras de cálculo da pontuação e a duração do jogo, etc. 


10 REM DESTREZA 

20 RANDOMIZECTIME) 

50 WINDOW B2,2,10,7,18:FEN Z: PAPER 42,1: 
PEN H2,0 

40 T=100:5=0: CE=CHR$CT4RD: CLS 

Fe que dd STRING$(4, 3 2)+CE+CE+” 
Md 

EO Eg="1444 133 
4Nz32231414114 
70 WHILE T>=0 
0 X=]2+INTCRNDAZO) 

90 Y= VERNON) 

100 2+INTCRNDEZS) 

no N= INTCRNDH1I O) 

120 LOCATE X, YE INK 1, CIPRINT N;CHR$CT) 
130 FOR I=] TO KRNDX$350+400:NEXT I 

140 AS=INKEY$&: IF A$S>"” THEN Z10 

150 T=T-N 

leo LOCATE X,YEPRINTOO 

170 WEND 

180 CLS 

190 PRINT:FRINT "A SUA FPONTUACAO E! "Ss; 
" POR CENTO” 

200 SOUND 1,478: SOUND 1,426: SOUND 1,379; 


210 U=VALÇASS: Cho is 

PERES) FOR I=| TO 

230 RVAL (MIDSCES, BRU+I,1))-% 

240 FOR kE=1 TO Z 

250 risiseadãs Ro, 4, 2K1+K- 1 PRINT RX, MID$CCS 


PRC] 
260 NEXT K 
270 NEXT 1 
280 IF U=N THEN S=S+10 
290 GOTO 150 


333131211312144 1331213112] 
13] 


164 


Anagramas 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo de reflexos (dois jogadores). 
Dificuldade do jogo: consoante o nível. 


O JOGO: 

O AMSTRAD escolhe letras ao acaso, sendo o número das letras 
função do nível de dificuldade desejado. Depois as letras da palavra 
assim obtida serão misturadas e apresentadas na base do écran; uma 
nova palavra é então confeccionada, de modo aleatório, a partir das 
mesmas letras, e é apresentada sob a primeira, e assim por diante. Os 
dois jogadores (esquerdo e direito) dispõem cada um de uma tecla 
(1 ou 0) e devem premi-la quando virem aparecer no fundo do écran 
uma palavra já existente nele; a sua pontuação é então calculada e será 
impressa uma mensagem correspondente ao resultado. 


O PROGRAMA: 

Na linha 50 faz-se entrar o nível do jogo desejado. O ciclo I (80- 
100) realiza a escolha das letras. 

Um segundo ciclo I (120-190) efectua a mistura, e a linha 140 per- 
mite detectar a pressão de uma tecla. 

A linha 200 imprime nova palavra e faz subir uma linha no écran 
as palavras já obtidas. 

A linha 240 verifica qual dos dois jogadores premiu uma tecla. 

O ciclo I (250-270) explora as palavras presentes no écran, linha 
por linha. Obtém-se assim uma palavra que na linha 260 é comparada 
com a palavra inicial; se o resultado for exacto aparece a mensagem 
BRAVO!. Se não, a partida acaba com a mensagem PERDEU... (li- 
nha 280). 


PARA JOGAR: 

Faz-se correr o programa com RUN. 

Em seguida faz-se entrar o nível de dificuldade (em princípio de 1 
a 3) e tecleia-se ENTER. As palavras são apresentadas a partir da base 
do écran e vão subindo à medida que o jogo se desenrola; se um dos 
jogadores crê reconhecer na palavra que aparece uma das palavras já 
impressas, deverá premir imediatamente a sua tecla (1 ou 0) e o seu re- 
sultado será apresentado após um breve instante. 

A partida será então terminada. Basta fazer ESC duas vezes para 
recuperar o controlo do teclado. 
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EXTENSÕES POSSÍVEIS: 

Poder-se-á utilizar outros assuntos além das palavras, modificar 
os tempos de apresentação, fazer participar mais de dois jogadores, 
melhorar o som e a cor, etc. 


10 REM ANAGRAMAS 

20 RANDOMIZECTIME) 

sd DIM ABCZ4A) 

40 CLS 

80 INPUT “NIVEL (DE 1 AS): “5N 

O IF N£7 OR N>3 THEN 40 

70 Sm" 

BO FOR I=1 TO N+3 

30 So=58+CHR$C INTCRNDKZE+ESD) 

100 NEXT 1 

NO Ag="" . Bg=Sg 

120 FOR I=1 TO LENCS$) 

130 N=INTCRNDALENCS$9+1) 

140 D$=INKEY$ 

150 IF D$="1" OR D$="0” THEN 240 

TEO IF MID$CES,N, 19="—-" THEN 130 

170 Ag= Pp ba N,19 

180 MID$ECES,N, Peetmt 

180 NEXT 1 

“00 LOCATE 1, 25: PRINT AS:PRINT CHR$&CE) 
210 FOR [=] TO ES ASCID=ABCI+IDINEXT IA 
GCud=AS 

20 Se=AB 

230 GOTO 110 

40 IF Dg&="1" THEN H$=" JOGADOR DA ESQUER 
DA” ELSE H$=" JOGADOR DA DIREITA” 

250 FOR I=] TO &3 

“60 IF AgCI)=S5$ THEN LOCATE LENCS$)+4,1:! 
FEN Z:PRINT "BRAVO! “;H$: SOUND 1, 478:50U 
ND 1,373: S0UND 1,319:G0TO 290 


270 NEXT. I 
200 PEN SILOCATE LENCS$)+4, 24: FRINT “PER 
DEU...) HE: FOR 1=] TO &: SOUND 1,400, 10, 


BECI MOD Z2:NEXT 1 
“30 GOTO z90 
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«Zombies» 


REFERÊNCIAS: 
Dificuldade de programação: bastante difícil. 
Categoria de jogo: solitário. 
Dificuldade do jogo: bastante fácil. 


O JOGO: 

Os zombies são seres malfazejos que vão tentar destruí-lo, mas 
você irá tentar utilizá-los em seu proveito, para desembaraçar o seu es- 
paço vital dos buracos negros que o obscurecem. No écran é traçado 
um quadro que define o seu espaço vital. Neste quadro vão aparecer, 
de modo aleatório, os zombies (são os Z), os buracos negros (quadra- 
dos azuis preenchidos a amarelo) e o jogador (uma cabeça). Os zom- 
bies convergem em direcção ao jogador para tentar capturá-lo, mas 
este desloca-se mais rapidamente que eles e vai tentar fazê-los engolir 
pelos buracos negros, sem se deixar apanhar. 

A partida termina quer com o desaparecimento do jogador quer 
por eliminação de todos os zombies. 


O PROGRAMA: 

A posição dos zombies é definida por um quadro Z, não dimen- 
sionado (abaixo de 10 é inútil fazê-lo). 

As linhas 50 a 120 (ciclo I) desenham o quadro, os zombies e os 
buracos negros. , 

A linha 130 define a posição inicial do jogador. 

Um segundo ciclo I (150-240) realiza a deslocação do jogador. 

As linhas 290 a 340 controlam a deslocação do jogador. 


PARA JOGAR: 

Depois de ter feito correr o programa com RUN, o jogador deverá 
deslocar-se utilizando as quatro setas e prestando atenção para não 
sair dos limites do campo de jogo. 

Deverá manobrar de modo a fazer que os zombies se dirijam aos 
buracos negros, mas sem se deixar apanhar. 

Para parar o jogo antes do fim bastará teclar ESC duas vezes. 


EXTENSÕES POSSÍVEIS: 

Será interessante ampliar o campo de jogo, aumentar o número de 
zombies ou de buracos negros, melhorar os controlos, colocar o joga- 
dor de modo mais aleatório, eventualmente modificar as regras. 

Poder-se-á também, claro, melhorar a qualidade do desenho e in- 
troduzir a cor. 
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10 REM “2OMEBTES” 
20 RANDOMIZECTIMES 
0 BORDER Si: INK O,3: INK 3,1] 


NT CHR$CEZE) 
NT CHR$CESSISLOCATE 23, 


I 
UI 
1) 
HEN LOCATE 1, INTCRNDAZO+E 
PRINT CHR$(233) PH PAPER O 


70 LOCATE E 


50 IF RND<O. 5 
J5FEN TLiPAFER 3 
PEN 

30 S=INTCRNDA] 4+2) 
100 ECINTCIZ3)+])=] 
No LOCATE L+1, ga: 
120 NEXT I 

130 K=INTCRNDATE+EO 
140 F=0 

150 FOR I=1 TO 4 
160 F=P+Eclo 

IZO IF ECT3)=0 THEN 240 

180 LOCATE ECI+495,ECIDEPRINTO” 

190 EClo=EcL)-SENCECII-S) 

200 ECI+A)=Ec L+4)-SGNCECI+4)-k) 

210 IF TESTCCECI+4)-I)DXIE+E, CEB-ECIDIXHIE 
+8)=] THEN ECIl)=0:GOTO 2:30 

Zé) LOCATE ElI+4),2CI)D:PEN SUPRINTOoME” 
230 IF 2(l)=5 AND E(I+4)=k THEN LOCATE 2 
SB AZ:/FEN S:PRINT "PERDEU"? WHILE TEXZ00:S 
OUND 1, TE, TI: TE=TE+1: WEND: END 

280 NEXT 1 

“50 IF F=0 THEN LOCATE 2, 23:FRINT "BRAVO 
! VOCÊ MATOU TODOS OS «<ZOMEBIES:».”:; SOUND 
1,478: SOUND 1,426: SOUND 1,379: SOUND 1,47 
&: SOUND 1,426: END 

260 LOCATE k,S.FEN Z:PRINT CHR$C224) 

270 FOR I=] TO 1I200:NEXT 1 

280 LOCATE K,S:PRINT O”? 

290 AB=INKEY$ 

da E=k-2ECCAB=CHR$ECAF 3))-CAB=CHR$ECAFZ)) 


310 IF kx=1 OR ko=23 THEN LOCATE 2Z5,12Z:F 
EN S:PRINT "QUE PENA! “;CHR$C7);: END 
SEO G=S-2R(CAB=CHR$CAF1))-CAB=CHR$ECBFOD) 
) 

330 IF S<=] OR S>=2% THEN K=25:GOTO 310 
240 GOTO 140 


INT CHARS CARO 
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Quadro mágico 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: desenho. 
Dificuldade do jogo: fácil. 


O JOGO: 

Como o título pode sugerir, trata-se muito simplesmente de usar o 
écran do televisor como um quadro escolar, manipulando um ponto 
sobre o écran em oito direcções, com a ajuda das teclas 1 a 9, utilizan- 
do a convenção seguinte: 


á 
N08 rd 
5 
-4 = 6— 
A 2 Ee 
v 


Pode-se escolher a cor do ponto premindo uma tecla de A a N; é 
possível apagar todo o écran premindo ENTER. 

Dispõe-se também da possibilidade de deslocar o ponto no écran 
sem deixar traço, premindo a tecla A. 


O PROGRAMA: 

A linha 30 transforma as teclas numéricas em teclas de repetição 
automática do toque. 

A linha 40 contém a escolha das possibilidades de cor, sob a for- 
ma hexadecimal. 

A linha 60 imprime o ponto elementar, a cintilar. 

As linhas 80 e 90 controlam as entradas. 

As linhas 100 a 130 provocam a deslocação. 

A linha 140 verifica se não são ultrapassados os limites do écran. 

A linha 160 imprime o ponto. 

A rotina 180-190 escolhe a cor. 


PARA JOGAR: 

Faz-se correr o programa com RUN e no meio do écran aparece 
um ponto. 

Se se premir uma letra de A a N, a cor do ponto muda. 
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A tecla ENTER apaga tudo e volta-se a começar. 


Pode-se sair do programa em qualquer momento, teclando ESC 
duas vezes. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á, claro, pensar em escrever um programa idêntico utili- 
zando traçados de segmentos, prever uma rotina que permita a salva- 
guarda do desenho realizado para uma utilização ulterior, etc. 


10 REM QUADRO MAGICO 

20 MODE OS INK 15,26,0 

30 FOR I=1 TO 20:.KEY DEF IL, I:NEXT I 

40 Cg="01 22456 765AEBCD” 

BO CLSORIGIN 320, 200: A=0 .E=0:C=4: X=0:Y= 


BO FLOT X,Y,15 

70 AB=INKEV$: IF Ag="" THEN 70 

BO IF Ag>="A" AND Agx="Nº THEN GOSUE 180 
'GOTO EO 

90 IF Ag=CHR$CIZ) THEN GOTO 50 

100 A=VALCAB) U=(A-1) MOD EiV=INTCCA-1D/ 
32 MOD 


Wo U=4-75V=Ym] 

JzO As=X EB=Y 

TO X=X+UiY=y+y 

140 D=-CABSCXI319 AND ABSCY)SISS) 

150 IF D=0 THEN X=A:Y=E 

1e0 FLOT A,E,C 

170 GOTO EO 

180 C=VALCCHRECEBI+AMIDÍCCS,ASCCASI-ES, 1) 


) 
190 RETURN 
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«Decómaco» 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: solução do programa «Nicómaco». 
Dificuldade do jogo: nenhuma. 


O JOGO: 

É uma réplica ao programa «Nicómaco», já anteriormente pro- 
posto: você fará entrar os restos sucessivos das divisões por 3, 5 e 7 de 
um número inteiro compreendido entre O e 100 e o AMSTRAD calcula 
e imprime no écran esse inteiro. O processo utilizado pode ser generali- 
zado (descubra você como). 


O PROGRAMA: 

As linhas 30 a 50 imprimem no écran algumas explicações. 

A linha 100 aguarda que você tecleie um resto, que será recusado 
se for incompatível com a divisão pelo número apresentado. 

A linha 110 armazena os restos numa variável não dimensionada 
A(S). 

A linha 140 volta a apresentar os restos entrados. 

O ciclo I (150-170) desenha pequenos quadrados segundo os restos 
introduzidos. 

As linhas 210 a 220 fazem a gestão do fim da partida. 


PARA JOGAR: 

Faz-se correr o programa com RUN. É impresso no écran um tex- 
to de apresentação, depois é apresentada a mensagem «RESTO DAS 
DIVISOES: POR 3, POR 5, POR 7». 

Deve responder-se 0, 1 ou 2 para 3, depois 0a 4 paraS e de 0a 6 
para 7. 

A solução é apresentada quando tiver fornecido os três restos. 

Para outra partida, teclar S em resposta à pergunta OUTRA 
TENTATIVA (S/N)?. 

Para terminar, premir N. 


EXTENSÕES POSSÍVEIS: 

Pode-se ampliar o programa aos inteiros de 1 a 1000, utilizando os 
restos da divisão por 3, 5, 7e 11; poder-se-á acrescentar som e cor para 
tornar mais atraente o programa. 
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'RINT "DEVE ENTRAR OS TRES RESTOS DAS 
40 FRINT “DIVISÕES FOR 3, 5, E 7, DE UM 


5 ia "INFERIOR à 100.” 

E =31 = 

70 WHILE I<X& 

So LOCATE 5,10: SOUND 1,478: SOUND 1, 4ZE1S 
OUND 1,379 

90 FEN CI-S)/2: PAPER SUFRINT “RESTO DA D 
IVISAO POR “:I; 

100 AG=INKEY$:IF Ag="" OR Ago” OR Ag>C 
HR$(47+1) THEN GOTO 100 

WmQ ACEI=ASCCAgI-4E 

TZO S=S+]I=1+2 


130 WEND 

140 LOCATE 1,16: FAFER O:FEN 1:PRINT "RES 
Ronnie DIVISÕES: FOR 3 FOR 5 EQ 
KR ” 


150 FOR I=1 TO 3 
1êO LOCATE B+SkI,1 
INT STRING$CACIO, 2: 
120 NEXT 1 

tão T=ACISEVOFACEIELIHACEIRIS 

190 IF T>105 THEN T=T- 105; GOTO 190 

200 LOCATE 10, 22: PAPER V:FEN Z:PRINT "A 
SOLUCAO E! “ST 

210 PAPER O.FEN TEILOCATE 4,24: INFUT "OUT 
RA TENTATIVA (S/N)? R$ 

220 IF UFFERGCR$I="E" THEN RUN 


Si: PAPER PEN CI-I2:FR 
RR] 


ol 4 
ee 
te tem 


Evasão 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: solitário. 
Dificuldade do jogo: fácil. 


O JOGO: 

O seu único problema é conseguir atravessar o écran sem que o 
AMSTRAD o consiga atingir com um dos numerosos obuses que vai 
disparar sobre si. 

Pode deslocar-se nas quatro direcções (usando as quatro setas), e 
deve conseguir sair do campo de jogo pela margem direita, sem, claro, 
ter sido atingido uma única vez. 


O PROGRAMA: 

A linha 60 define a posição inicial do jogador. 

A linha 80 escolhe a coordenada horizontal da casa para onde o 
AMSTRAD vai disparar (relacionada com a sua posição), e a linha 90 
escolhe a coordenada vertical (arbitrária) dessa casa. 

A deslocação do jogador é controlada pela linhas 170 e 180. A sua 
posição actual (no écran, um símbolo gráfico) é impressa pela Ii- 
nha 190. 

A linha 200 verifica se o jogador foi ou não atingido. 

O ciclo WHILE/WEND (70-210) efectua o controlo de fim de 
partida. 


PARA JOGAR: 

Inicia-se a execução do programa com RUN. 

É disparado um primeiro tiro, e só depois disso é que aparece o 
jogador, representado por um símbolo gráfico. 

As quatro teclas de direcção (—,|,1, —) servem para deslocar o jo- 
gador. 

Se este é atingido obtém-se, no écran, a mensagem PERDEU, e a 
partida acaba. 

Se ele consegue sair pela direita do écran sem ser atingido obtém- 
se a mensagem BRAVO, e a partida acaba igualmente. 


EXTENSÕES POSSÍVEIS: 

A cor e um grafismo mais cuidado melhorarão consideravelmente 
a atracção do jogo. Poder-se-á também tornar mais aleatório o tiro 
dos obuses, introduzir obstáculos a contornar, acrescentar controlos, 
fazer participar vários jogadores, etc. 
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10 REM EVASAO 

O RANDOMIZECTIME) 

0 DEFINT H,k,X,Y 

AO CLS 

850 ORIGIN 0,200 

BO X=1iY=13 

70 WHILE X<:38 

20 H=168CX-2)+32KRND 

30 E=]84-RNDESZES 

100 IF X<4 THEN 150 

Wo FOR J=1 TO S+RNDX] 2 

120 PLOT H+HIGERND, K+HIGHRND, 3 
VEO SOUND 1,834,1,7,0,0,1 
140 NEXT 1 
150 LOCATE X,YS PRINT”! 

160 AB=INKEY$ 

170 X=X-CAB=CHR$C AF) + AB=CHASCAF E) 
TO Y=y-CAB=CHR$CAP To )+CAB=CHR$ECAFOD) 
re LOCATE X,Y:FEN 2Z:PRINT CHR$C 24959: FEN 
200 IF X>3 AND CABSCH-TERCX-1))+ABSCK-TE 
&CV2-Y))4=15) THEN PEN SEPRINT "PERDEU !” 
E SG 254: SOUND 1,5, 1: S=5+1: WEND: END 


O WEND 
sé: PRINT "BRAVO!" SOUND 1,4 
7E: SOUND 1,:373: SOUND 1,319 
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Repetições 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: jogo de memória (um ou vários jogadores). 
Dificuldade do jogo: média. 


O JOGO: 

No écran vão aparecer números, um a um. 

Em cada jogada o jogador deverá repeti-los todos, desde o início 
(o que significa que em cada jogada terá mais um para teclear). 

Deverá tentar aguentar-se o máximo de tempo possível. A melhor 
pontuação é memorizada após cada partida, o que permitirá eventual- 
mente jogar com vários jogadores. 


O PROGRAMA: 

A linha 40 chama uma rotina (linhas 1000 a 1060) que estabelece 
as regras do jogo. 

A linha 70 fabrica os números, que seguidamente são armazena- 
dos numa variável alfanumérica AS$. 

A linha 80 permite a impressão do último número ao acaso na 
quarta linha do écran, e a duração da exposição no écran é determi- 
nada pela linha 90. 

A linha 110 aguarda a resposta do jogador, que na linha 120 é 
comparada com a resposta correcta. 

A linha 150 marca os pontos. 

A linha 160 controla a melhor pontuação. 

A impressão das mensagens de fim de partida são efectuadas da li- 
nha 200 à linha 230. 


PARA JOGAR: 

A execução do programa com a ordem RUN provoca a apresenta- 
ção no écran das regras do jogo e, depois, de um número que desapa- 
rece. O aparelho faz então a pergunta SUA SEQUENCIA?. 

Responde-se fornecendo-lhe o número, seguido de ENTER. Se 
estiver correcto, aparece durante um breve instante a mensagem 
CORRECTO. ATENÇÃO!; depois é apresentado um novo número, 
que desaparece, e de novo a pergunta SUA SEQUENCIA?. Tecleiam- 
-se então os dois números já apresentados, seguidos de ENTER. 

Continua-se assim (três numeros, depois quatro, cinco, etc.), até 
ser cometido um erro, o que provoca a apresentação da pontuação 
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(e da melhor pontuação obtida até então), seguida da pergunta OU- 
TRO JOGO (S/N)?; tecleia-se S para continuar. 

Pode-se também sair do programa a qualquer momento teclando 
ESC duas vezes antes da apresentação de um número. 


EXTENSÕES POSSÍVEIS: 
Poder-se-á realizar jogos análogos e mais ou menos aperfeiçoados 
substituindo os números por letras ou cores ou sons... 


10 REM REPETICOES 
20 RANDOMIZECTIMES 
30 M=0 
40 GOSUE 1000 
LO Ag”! ” 
BO MODE O: H=0 
70 X=INTCRNDEIOS INK 3, Z+INTOZBKRND)  Ag= 
AS+RIGHTECSTRECXD,1) 
E SRS MEOCAEE T+RNDX20, 4: PEN S:PRINT X:F 
30 FOR I=1 TO ZO00+RNDE3ZOO NEXT 1 
100 CLS 
Wo LOCATE 4,B:FEN GIFRINT "SUA SEQUENCI 
AP "PRINT: PEN 4 INPUT "Po RS 
120 IF R$<>A$ THEN 150 
1:20 PRINT:SOUND 1,473:SOUND 1,426: SOUND 
TS7ZSTPRINT ” CORRECTO. ATENCAO!” 
"140 FOR I=1 TO 400:NEXT I 
150 H=H+1 
1RO IF MÍaH THEN M=H 
170 GOTO 70 
180 MODE Ti INE O,EIBORDER EIFEN E 
190 TE=O0:WHILE TE<200: SOUND 1, TE, II: TESTE 
+ WEND 
200 INK O, TI: BORDER 1:FRINT “A SUA FONTUA 
Cao E' DE “;H 
210 PRINT:IFPRINT "MELHOR FONTUACAO ACTUAL 
Ma M 

, 
220 PRINT: INFUT "OUTRO JOGO CS/NSPYEIR 
$& 
230 IF R$="Nº THEN PRINT CHR$(C72;:END 
240 GOTO BO 
1000 CLS:FEN 1 
Dos” FRINT “DEVE RESPEITAR TODA A SERIE 
1020 FPRINT:PRINT "NUMEROS MOSTRADOS DESD 
E O INICIO DO JOGO” 
10:30 PEN Z:LOCATE 4, 1Z:FRINT "HA! MAIS U 
M DE CADA VEZ” 
1040 LOCATE 4,25: PAPER 1I:FEN O:FRINT "CA 
RREGUE EM <ENTER>» FARA COMECAR”; :FAPER O 
1050 INFUT "",R$ 
1060 RETURN 
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Mateus 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: desenho aleatório. 
Dificuldade do jogo: nenhuma. 


O JOGO: 

Utiliza-se a definição de uma curva em coordenadas polares e a 
função DRAW para obter a impressão no écran de desenhos aleatórios 
(do tipo flor), mais ou menos elegantes. 

Os dois parâmetros principais, A e B, poderão ser, se necessário, 
fornecidos à mão (instruções INPUT), para fazer um estudo mais sis- 
temático das diferentes curvas possíveis. 


O PROGRAMA: 

Os três primeiros parâmetros, Z, K e T, introduzidos na linha 50, 
definem o raio máximo e a ocupação do écran. 

O ciclo WHILE/WEND (70-90) permite escolher as quatro cores 
de fundo da tinta, validadas na linha 100. 

As variáveis aleatórias A e B, escolhidas entre O e 2, da linha 110, 
definem o tipo da curva; poderá ser interessante introduzi-las manual- 
mente (por exemplo: 110 INPUT A, B). 

O ciclo H (120-170) realiza o traçado, ponto a ponto. O raio R é 
calculado na linha 130, e a passagem para coordenadas cartesianas é 
efectuada nas linhas 140 e 150. 

A impressão dos pontos é realizada na linha 160. 

A linha 180 imprime uma mensagem de fim. 

A linha 210 permite fazer um novo desenho, enquanto as linhas 
220 e 230 asseguram um novo traçado sem apagar o anterior. 


PARA JOGAR: 

Faz-se correr o programa teclando RUN. 

O desenho será em seguida executado automaticamente. 

A mensagem ACABOU... assinala o fim do traçado. 

Se se quer novo traçado tecleia-se 0. 

Se se quer um traçado sem apagamento do desenho precedente 
prime-se uma tecla qualquer. 

Para parar basta fazer ESC duas vezes. 
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EXTENSÕES POSSÍVEIS: 

Poder-se-á tentar utilizar outras funções para realizar traçados 
ainda mais extraordinários (por exemplo, com simulação da terceira 
dimensão). 


10 REM MATEUS 

20 RANDOMIZECTIME) 

30 ORIGIN 320, 200 

40 DEG 

BO E=7ik=]3: T=3: CLS 

EO FaO:/EC])D=0 E(2)=0:E(:3)=0 

70 WHILE CECI)-FS)KCECZ)-FIXCECID-FIXCECI 
Jm=ECZ))JRCECID-ECTIIIECECZI-E(3))=0 

80 F=INTCRNDX2Z7):EC))=INTCRNDK27):EC2)=1 

NTCRNDEZ7) EC3)=INTCRNDA27) 

30 WEND 

ERAS O,FS INK V,ECIDIINK 2, ECRM INK 3, 
(5 

No A=F:RND: E=3KRND 

120 FOR H=0 TO 360 

130 R=2RSINCH&TO 

140 X=INTCKA&RECOSCARH)) 

5O Y=INTCKHRESINCEHHO) 

O DRAW X,Y,C+] 

OQ NEXT H 

180 LOCATE 1,217: PRINT “ACABOU...” 

130 SOUND 1,473: SOUND 1,:379: SOUND 1,319 

200 A$=INKEY$&. IF A$="" THEN 200 

210 IF UFPER$CA$)="0" THEN 50 

220 C=(C+1> MOD 3 

230 GOTO 110 
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Através 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo de reflexão (dois jogadores). 
Dificuldade do jogo: média. 


O JOGO: 

No écran aparece um quadrado de nove casas, com letras no bor- 
do vertical e números no bordo horizontal. 

Um dos jogadores manipula os números, o outro manipula as le- 
tras. São possíveis três deslocações para os números e outras três para 
as letras. As letras podem deslocar-se para cima, para a direita e para a 
esquerda, e os números podem deslocar-se para a direita, para cima e 
para baixo. 

Ganha o jogador que primeiro conseguir fazer sair todos os seus 
símbolos (as letras saem por cima, os números saem pela direita). 

Não se podem tomar casas e os saltos não são permitidos; também 
não pode colocar-se numa casa já ocupada. 


N N 
ALGARISMOS I— E LETRAS O ER JE E 
S 


O PROGRAMA: 

As posições dos números e das letras são registadas num quadro 
N(5,5); as linhas 30 a 70 definem os valores iniciais. Os índices O e 5 
servem para delimitar o campo de jogo. 

As linhas 100 a 140 desenham o campo de jogo e a linha 170 im- 
prime o jogador que deve jogar. 

A linha 190 controla a jogada feita, assim como os ciclos 1 e J 
(200 a 240), e a mudança de jogador é assegurada pela linha 330. 


PARA JOGAR: 
O campo de jogo será apresentado no écran depois de se ter feito 
RUN, e o computador fica a aguardar a jogada do jogador designado. 
Antes de mais faz-se entrar o número ou a letra que representa a 
peça a deslocar, seguido de uma indicação de direcção sob a forma N 
(para norte), S (para sul), E (para este) ou O (para oeste). 
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Assim, poder-se-á fazer 2E seguido de ENTER. 

Se a jogada não for válida não será executada, e o código do joga- 
dor permanecerá exposto no écran; se for válida, a deslocação será 
efectuada e obtém-se a mensagein referente ao segundo jogador. 

Ganha aquele que primeiro conseguir fazer desaparecer as suas 
três peças. 


EXTENSÕES POSSÍVEIS: 

Pode-se pensar em ampliar o jogo com mais números ou letras e 
melhorar os controlos. Pode-se também definir uma estratégia para o 
AMSTRAD. 


10 REM ATRAVES 
20 DIM NC5,5):K=1 
30 FOR I=0 TO 5 


40 NCL, I)=ASCC"OVI+IENCA, L)=ASCC"PUI+T 
BO NCL,O)=1:NCO, IDD=1TINCS, IDD=]UNCI,5)=] 
60 NEXT 1 

70 NC4, 15=0 

80 MODE O 


30 FOR U=] TO 4 
100 FOR V=1 TO 4 
10 LOCATE 4XHU, 4kV-Z IF Fado 


V,0)=0 THEN FE 
ENCY, DL 


N G:PRINT ”.” ELSE PENC2- 4523): PR 
INT CHR$CNCV, USD: FEN 1 

130 NEXT V 

140 NEXT U 


150 LOCATE 3,18:PEN 2+K 

160 PRINT “JOGADOR QUE TEM” :LOCATE 6,15: 

IF K=0 THEN PRINT “AS LETRAS” ELSE PRINT 
"OS ALGARISMOS” 

170 LOCATE 1,22:PRINT CHR$(Z0); "SUA JOGA 

DA LC FSIRINGEC O CK nO), 104); 4NEM STRINGS 
TA] ” ya “us ” : 

180 INPUT *" R$: R$=LEFTSCUFPERSCR$D+ 

2): L$=LEFTS(R$, 1) /R$=RIGHTSCRS, 1) 

190 IF CK=0 AND R$="5") OR (K=] AND R$=" 

0") THEN PRINT CHR$(7);:GOTO 170 

200 FOR 1=1 TO 4 

210 FOR J=1 TO 4 

220 IF NI, J)=ASC(L$) THEN 260 
30 NEXT 

240 NEXT 1 

250 PRINT CHR$C7); :GOTO 150 

260 A=1:B=) 

S70 L=l-(R$="go)+cR$=eNt) 

280 J=J-(R$="E!)+(R$="0") 

290 IF CI=0 AND K=0) OR (J>4 AND K=1) TH 

EN 320 

200 IF NC1,32<50 THEN PRINT CHR$(7);:G0T 


310 NCI, JI=ASCCL$) 
320 NCA,E)=O 

380 K=ABS(K-1) 

340 GOTO 80 
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Calculadora 


REFERÊNCIAS: 
Dificuldade de programação: muito difícil. 
Categoria de jogo: simulação de uma calculadora. 
Dificuldade do jogo: média. 


O JOGO: 

Trata-se da simulação, com apresentação em formato grande, do 
funcionamento de uma pequena calculadora de bolso, do tipo que só 
faz quatro operações. As aplicações pedagógicas deste programa são 
evidentes e é muito simples dominar o modo como funciona. 


O PROGRAMA: 

Na linha 15 é definida a função VA(I$) para remediar (em parte) 
as singularidades da função VAL do Basic AMSTRAD. 

As variáveis B$ e C$, das linhas 20 e 30, contêm as informações 
codificadas que permitirão desenhar números em formato grande. 

As linhas 60 a 150 ocupam-se da gestão das entradas. 

O ciclo I (160-190) realiza a representação dos algarismos no 
ecran, em formato grande, à medida que vão entrando. 

A gestão do ponto decimal e do sinal — é feita pelas linhas 200 
e 210. 

O número total dos símbolos entrados é controlado pela li- 
nha 220. 

O resultado é inscrito no écran graças a uma rotina de funciona- 
mento automático que se encontra nas linhas 270 a 390 (o automatis- 
mo é gerido pela linha 230, no programa principal). 

As rotinas colocadas nas linhas 400-410, 420-430, 440-450 e 
460-470 efectuam a operação indicada, de acordo com o valor de Z 
(linha 310). 

Cada resultado é memorizado em A(F — 1) (linha 330). 


PARA JOGAR: 

Fazer correr o programa com RUN. 

Depois, teclar os algarismos do primeiro número a entrar, que vão 
ser impressos um a um, à medida que forem entrando (não se poderá 
fazer entrar mais de oito símbolos, incluindo o sinal — e o ponto de- 
cimal). Teclar um sinal operatório deixa intacta a apresentação no 
écran, mas a introdução do próximo algarismo ou símbolo provoca o 
imediato apagamento e a apresentação do novo símbolo. 
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É de salientar que os algarismos são introduzidos da esquerda pa- 
ra a direita, sentido usual da escrita. 

O aparelho aceita como sinais operatórios os símbolos +, — 
*,/; O sinal = provocará a apresentação do resultado. As operações 
são encadeadas automaticamente, sendo o resultado precedente toma- 
do em conta como operador do cálculo seguinte. 

Para fazer outra operação será necessário teclar ESC duas vezes, 
depois RUN. 

Teclar ESC duas vezes para sair do programa. 


EXTENSÕES POSSÍVEIS: 

Proteger o programa contra as entradas erradas (divisão por O ou 
vários pontos decimais seguidos). 

Dever-se-á, antes de mais, melhorar a apresentação do sinal — 
(aqui representado por um traço), depois poder-se-á melhorar o dese- 
nho dos algarismos (utilizando, por exemplo, o gerador do AMS- 
TRAD). Pode-se pensar também numa ampliação para mais de oito al- 
garismos, permitir operações mais complexas (COS, SEN...), acres- 
centar memórias, etc. 


10 REM CALCULADORA 

15 DEF FN VACIG)=VALCIS+STRINGSC—C 1$="— 
OR Ig="+" 3, “o” 3 j 

20 CS=STRINÓGSC4, 233)+STRINGSCA, S2)+STRIN 
G$(2,233)+" "+CHR$CZ33) 

30 E$= "TAM BS3SS1 312113 SI4413312131121 

41133331414114131” 

40 F=]:L=0:CLS 

50 N=0: T=0:k=0:R$="º 

60 AS=INKEY$:IF Ag="" THEN EO 

70 IF K=1 THEN N=0:R$="" :k=0 

B0 IF Ag="="” THEN ZE0 

90 X=(1 AND Ag="+")+C2 AND Ag="-")+(:3 AN 
D Ag="k"2+(4 AND Ag="/") 

100 R$=R$+A$ 

No IF Xxx>0 THEN 260 

120 IF R$="-” THEN Ag=R$: GOTO 200 

130 IF A$<”.” OR A$>"9” OR A$="/2" THEN FP 

RINT CHR$(7),:GOTO 60 

140 IF N=0 THEN CLS 

150 IF A$=".” OR A$="-*" THEN 200 

1€0 FOR 1I=1 TO 5 

170 S=3KVALCMIDÉCES, I+5XEN VACAS), 1))-% 
180 LOCATE N+1, I+4: PRINT MID$(C$,5,3) 
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180 NEXT 1 


200 IF Ag="-"” THEN CLSILOCATE 2,7: PRINT 
STRING$CA, Es) 

210 IF A$g="." THEN LOCATE N+2, 9: PRINT CH 
R$CZ33) 


£E0 N=N-4K(N< 26) 

ú 1) a T<>0 THEN T=T+1. IF TA=LENCÇR$) THE 
119) 

240 IF K=1 AND Le>] THEN 50 

250 T=0:GOTO EO 

260 IF R$="-" AND ACF)=0 THEN 120 

270 N=0:;k= 

280 IF cA$g="k" OR Ag="/") AND PFN VACR$)= 

O THEN AcCF)=1:GOTO 300 

290 ACF)=PFN VAÇR$) 

300 IF X4>0 THEN E=kX 

310 ON E GOSUE 400, 420,440, 460 

320 IF Ag<>/=" THEN F=F+] ELSE F=2 

330 ACF=1)=EN VACR$) 

340 IF PFN VACR$)=0 THEN ACF-1)D=ACF) 

350 R$=STR$CFN VAÇR$D) 

360 IF LEFT&CR$,1)=" " THEN R$=RIGHT$ECRES 

E os 

70 Tal 

380 AS=MIDSCR$E, T,1) 

380 GOTO 140 

E R$=STR$ECACF-1)+ACFDDACF)=EN VACR$): 

410 RETURN 

420 IF F<>1 THEN R$=STR$CACF-1)9-ACF)DI:AÇ 

F)=PN VACR$D E L= 

430 RETURN 

440 IF F<>] THEN R$=STR$CACE-1 )RACF 9): AC 

F)=EN VAÇR$D Lx] 

450 RETURN 

4£0 IF F<>] THEN R$=STRECACF-1D/ACFISTAC 

F)=EN VAÇR$):L=] 

470 RETURN 
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Caça ao submarino 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo de reflexão. 
Dificuldade do jogo: média. 


O JOGO: 

Você está a bordo de um barco de superfície, encarregado de per- 
seguir um submarino escondido algures no seu sector; deve deslocar-se 
até se colocar por cima do submarino e disparar a uma certa profundi- 
dade. Mas atenção: o submarino também é móvel; só quando você es- 
tiver exactamente na vertical é que desligará os motores, para não ser 
referenciado. 


O PROGRAMA: 

O ciclo WHILE/WEND (30-50) recebe a dimensão da quadrícula. 

O ciclo I (80-140) imprime o campo de jogo. 

A linha 160 define a posição inicial do submarino; a linha 170 per- 
mite a sua deslocação, controlada pela linha 180 (permanece-se nos li- 
mites do campo de jogo). 

A linha 200 imprime a vossa posição. 

As linhas 240 a 260 controlam a vossa deslocação. 

A distância é calculada na linha 270, apresentada na linha 280 
(numa janela %1) e testada nas linhas 290 e 300. 

O teste de fim de partida é efectuado na linha 330. 


PARA JOGAR: 

Inicia-se a execução do programa com RUN e faz-se entrar a di- 
mensão; a quadrícula de jogo é impressa. O seu ponto de partida é a 
posição (0,0) e você desloca-se com as setas. 

Após cada deslocação é impressa no écran a nova distância a que 
se encontra do submarino. Em cada jogada o submarino desloca-se. Se 
conseguir colocar-se na vertical dele, a distância O é mostrada e ele não 
se move mais. 

Você dispara indicando uma profundidade em números inteiros 
(entre 2 e 4, ambos incluídos). Se não lhe acertar, ele volta a colocar-se 
algures e recomeça-se; se lhe acertar obtêm a mensagem BRAVO! e a 
partida acaba. 

Pode-se parar em qualquer momento o programa utilizando a te- 
cla ESC duas vezes. 
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EXTENSÕES POSSÍVEIS: 


É possível prever uma melhoria do grafismo, melhorar as possibi- 
lidades de deslocação do caçador (um tanto lenta, nesta versão), prever 
percursos mais sofisticados para o submarino, pôr um contador de 


tempo... 


10 REM CACA AO SUBMARINO 

20 RANDOMIZECTIME) 

20 WHILE H<1 OR H>10 

40 PRINT: INFUT "DIMENSÃO DA GRELHA?” ;H 
50 WEND 

BO CLS 

70 WINDOW *1,4+2kCH+1),39,H+2, H+5 PEN R1 
(O:PAPER É1,1] 

80 FOR I=0 TO H 

90 PEN ILLOCATE 2ZKI+4, I:PRINT II 

100 LOCATE 1, 2%K1+3: PRINT I:PEN 2 

Wo FOR J=0 TO H 

120 LOCATE ZKJ+5, ZRI+SEPRINT O"? 

130 NEXT J 

140 NEXT 1 

150 I=1:X=0:Y=0 

1€0 V=INTCRNDk&H) : U=INTCRND&H) 

1720 U=U+T:V=V+T 

180 IF (U£O OR U>H OR VXO OR V>H) THEN T 
=-1L.GOTO 170 

ah LOCATE CAVE, ZRXASL IF Y<20 THEN PRIN 
200 LOCATE ZkY+5, 2Z8X+3: FEN SEPRINT CHR$C 
255): FEN 2 

210 LOCATE CRV+7, ZRX+S IF Y<x2H THEN PRIN 


2z0 LOCATE ZRY+S, 2RX+HT IF X<>0 THEN FPRIN 
250 LOCATE ZKY+5, ZKX+5! IF Y<>H THEN PRIN 


240 AS=INKEY$: IF Ag="" THEN 240 

250 Y=Y-CAg=CHR$CIGF3) AND Y<H)+CAB=CHR$C 
BF 2) AND Y>0) 

260 X=X-CAS=CHR$CHF 1) AND X<H)+CAB=CHR$C 
&Fz) AND X>0) 

270 D=ROUNDCSQRCABSCX-VICZ+ABSCY-US 2) 
280 CLS HISLOCATE K1,14-H, I:PRINT &1,ºDI 
da e Aa LREDENA RI , USING SFACESCIE-HI+V HR 
290 IF D=0 THEN 320 

200 IF Ds3 THEN 170 

310 GOTO 190 

320 LOCATE R1,13-H, 3S:PRINT &1,ºFROFUNDID 
ADE”  LOCATE &1,15-H, 4: INPUT +, rr, D 

330 IF D=INTCRNDA3+2) THEN LOCATE V, Z5:F 
RINT "BRAVO!" SOUND 1,478: SOUND 1,:379:50 
UND 1,319:END 

340 TE=O!WHILE TE<Z0: SOUND 1, TE, TI TE=TE+ 
VE WEND 

350 GOTO 160 
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Nível 5 


Nome do programa 


Relógio 1 ............ 
Relógio 2 ............ 


Combate aéreo ..... 


Cartaz publicitário 


O jogo do míssil .... 


Gotas ............ 


Capturas no espaço 


Anomalia ............ 


Vários em um ....... 


Percurso do cavalo 
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Temas e particularidades 


Preciso, fácil de regular e muito colorido. 
Não deite fora a sua velha televisão; trans- 
forme-a em relógio. 

Não é muito fácil abater um aparelho que 
está sempre a mover-se. 

Se não sabe o que há-de pôr na sua mon- 
tra. 

Uma missão bastante perigosa (um joga- 
dor). 

Um clássico dos jogos vídeo (um jogador). 
Um clássico, mas não desinteressante (dois 
jogadores). A 

Fume sem risco, com um programa origi- 
nal para um jogador. 

Um jogo de reflexos não demasiado difícil, 
para um jogador. 

Será suficientemente hábil para evitar to- 
dos os meteoritos? 

Está verdadeiramente seguro dos seus re- 
flexos? 

Não deixe fazer a postura diabólica (um 
jogador). 

Há um provérbio escondido lá dentro: 
descubra-o. 

Um pouco de destreza, bastante sorte: 
muito visual. 

Um verdadeiro gag visual. A explorar. 
Bastantes obstáculos a evitar neste jogo de 
destreza para um jogador. 

A sua missão seria fácil, se não fossem os 
malditos meteoritos. 

Exerça a sua perspicácia no reconhecimen- 
to dos símbolos. 

Um campo de jogo e as peças, para dois 
jogadores. 

Muito espectacular e instrutivo a diversos 
títulos. 


«Othello» .................... Para dois jogadores; o jogo move as peças 


por si. 

Damas si. asmsesaasie senti: Para dois jogadores: clássico. 

Quatro a quatro ............ Um jogo de reflexão um pouco difícil, pa- 
ra dois jogadores. 

DA É: Ta | 7 ARES RRRR Um programa assaz simplificado, para 
dois jogadores. 

Muro de tijolos ............. Um grande clássico numa versão muito 
completa. 

O lagarto de Alice ......... Muita intervenção do acaso, mas muito es- 
pectacular. 
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As técnicas particulares 
do AMSTRAD 


UMA INSTRUÇÃO DE CRIAÇÃO DE FORMAS: 
A INSTRUÇÃO SYMBOL 


O Basic AMSTRAD permite redefinir os caracteres afectados 
às teclas. A ordem SYMBOL AFTER indica a partir de que código 
ASCII se deseja começar. O carácter de código N é criado pela ordem: 


SYMBOL N,12,30,45,63,30,12,30,51 
Foi definido assim: 128643216 8 42 1 


A ordem TAG, indicando que as impressões de texto devem ser 
efectuadas na posição do cursor gráfico, permite pôr o carácter em 
qualquer ponto do écran com um simples «PRINT CHR$(N);» (não 
esquecer o ponto e vírgula: que evita a aparição de caracteres parasi- 
tas). 


AS INTERRUPÇÕES 


Em certos momentos, o computador pode abandonar o programa 
que executa para realizar uma outra tarefa, antes de retomar o seu tra- 
balho anterior. Controladas pelo relógio interno do AMSTRAD, estas 
rotinas são úteis quando o tempo desempenha um papel importante. A 
ordem EVERY chama uma rotina a intervalos regulares (por exemplo, 
para simular o batimento de um metrónomo). É possível desligar tem- 
porariamente a interrupção com uma ordem DI. Será restabelecida por 
EI. 


IDENTIFICAÇÃO DE UM OBJECTO NO ÉCRAN: TEST 


A função TEST permite fazer a leitura directa da cor de um ponto 
do écran de coordenadas X e Y. 
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Relógio 1 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: simulação. 
Dificuldade do jogo: nenhuma. 


O JOGO: 

O programa simula o funcionamento de um relógio digital, uti- 
lizando os caracteres ampliados do AMSTRAD. Apresenta a parti- 
cularidade de usar o relógio interno do AMSTRAD, para uma boa 
precisão na hora. 


O PROGRAMA: 

A linha 60 permite fazer entrar a hora, teclando primeiro as ho- 
ras, depois os minutos e por fim os segundos. A rotina 1000-1080 é uti- 
lizada para definir as zonas de recolha dos dados, controlar as entra- 
das e validar a recolha. 

O ciclo WHILE/WEND (110-200) ocupa-se das horas e o ciclo 
compreendido entre as linhas 120-180 ocupa-se dos minutos. 

O ciclo WHILE/WEND (130-160) imprime os segundos. A rotina 
2000-2010 incrementa os segundos (a linha 100 autoriza a contagem 
dos segundos na rotina 2000-2010, chamada graças a uma ordem 
EVERY na linha 20). 

A rotina 3000-3010 assegura a impressão das horas, minutos e se- 
gundos com dois algarismos. 


PARA JOGAR: 

Fazer RUN. No écran é impresso o pedido FACA ENTRAR A 
HORA SOB A FORMA HH:MM:SS, e tecleia-se a hora, depois os mi- 
nutos e por fim os segundos. 

A contagem do tempo inicia-se logo que se prima ENTER. 

Faz-se parar teclando ESC duas vezes. 


EXTENSÕES POSSÍVEIS: 

Pode-se pensar em imprimir os segundos, acrescentar uma possi- 
bilidade de despertador, prever uma agenda automática, fazer aparecer 
um cuco a dar horas, etc. 
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10 RELOGIO 1 

o ERA 50 GOSUE 2Z000:DI 

a s 

Comin SS "ENTRE A HORA SOE A FORMA 
BO LOCATE 1Z,4:FRINT "== ,-—-:-—" PEN 3 

EO FOR N=0 TO Z:LOCATE 12+3kN, 4: GOSUE 10 
DO! TÊ=TS+R$:NEXT N 

70 FOR I=1 TO S:XCT)=VALCMIDECTE, ZEI-T, 2 
JJ): GOSUVE FO00: NEXT 1 

20 MODE O 

30 MOVE IIXIE,GkS2+EDRAWR O, 32,2: DRAWR 
9%32,0,2:DRAWR O,- Se, 4: DRAWR -3kK32,0,2 
940] 


No WHILE XCTocg4 

120 WHILE XCZ)4EO 

130 WHILE XC3)260 

140 I=3: GOSUE 3000 

150 LOCATE 7,12: FRINT X$CID,P PRECO! 
PI REC) 

1€0 WEND 


I7O XCBI=0:XC2)=XCE)+TIPEN I+XCZo MOD 1% 
| L=2: GOSUE 3000 

180 WEND 

ISO XCZ9=0: [=2: GOSVE 3000:XC1)=XC1)+1iIl= 
Vi GOSUE 3000 

200 WEND 

210 FOR 1=1 TO 3:XC1)=0: GOSUE Z000:NEXT 
I 


220 GOTO 110 

1000 R$&="""15=0 

1010 AgS=INKEY$&: IF A$="" THEN 1610 

10Z0O IF <N=0 AND S=0 AND A$x>"0" AND AS 
2E”1º AND Age" 2”) THEN 1010 

1030 IF CCN=1 OR N=2) AND S=0 AND A$%2"0 
” AND VALCAS)»=6) THEN 1010 

1040 IF (S=] AND Ag<>"0” AND VALCABI=0) 
THEN 5=S-1 GOTO 1010 

1050 R$= R$+A$ PRINT Ab; SG=5+] 

1060 IF Sé THEN 1610 

1070 IF N=0 AND VAL (R$)>24 THEN RUN 
1080 RETURN 

Z000 X03)=X02)+1 PRINT CHR$C7D; 

2010 RETURN 

3000 XEC1)="0"+RIGHTECSTRECXCI)),LENCSTR 
ECXCID))- 1): XECTI)=RIGHTECXECID,2) 

3010 RETURN 
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Relógio 2 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: desenho. 
Dificuldade do jogo: nenhuma. 


O JOGO: 

Transformar o seu velho écran de televisão num relógio digital 
com números em formato grande, graças a um programa que lhe per- 
mitirá animar uma vitrina, fazer um relógio de fantasia, e que facil- 
mente poderá prestar-se a muitos outros usos. 


O PROGRAMA: 

A linha 30 permite-lhe fazer entrar a hora sob a forma de um in- 
teiro de quatro algarismos (por exemplo: 1024 significará 10 horas e 24 
minutos). 

A rotina 1000-1030 é executada todos os segundos, ao passo que a 
rotina 2000-2210 o é todos os minutos. 

As linhas 2070-2190 realizam o desenho, substituindo a impressão 
à medida que o tempo passa (com a ajuda da variável K, incrementada 
na linha 2180). 

As linhas 2000 a 2040 asseguram a progressão da hora. 

A linha 1000 efectua a impressão de dois pontos a piscar, para os 
segundos. 


PARA JOGAR: 

Depois de ter sido feito correr com RUN, o programa fica a 
aguardar a hora; tecleia-se a hora e aguarda-se que chegue o momento 
exacto para premir ENTER. 

A hora é então rapidamente apresentada e o relógio está a traba- 
lhar. Para o parar bastará premir duas vezes a tecla ESC. 

Ao dar entrada à hora terá de se usar imperativamente um inteiro 
de quatro algarismos; para 5 horas e 6 minutos terá de se teclar 0506 
seguido de ENTER. 


EXTENSÕES POSSÍVEIS: 

Será interessante modificar o programa para fazer dele um desper- 
tador, com alarme; pode-se também melhorar o grafismo, introduzin- 
do a cor. 
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10 REM RELOGIO Z 
CLS 


30 INPUT “HORA CFORMA XXXX9";A$ 

40 GOSUE 2050 

50 EVERY 50,1 GOSUE 1000 

60 EVERY GOREO, 2 GOSUB 2000 

70 GOTO 70 

1000 LOCATE 2Z0,4:PAPER H:IPRINT ” ":LOCAT 
20 ,6:PRINT * “".PAPER 2 

SOUND 1,473,1 

H=ABSCH-3) 

RETURN 

A=I+VALCAS) 

IF A=Z2360 THEN A=0 
A$="000"+RIGHTECSTRECA), LENCSTRÉCA) 


0:30 AS=RIGHTSCAS, 42 

2040 IF RIGHTECAS, 2 2)="60" THEN Ag=RIGHT$ 
(STR$CVALCLEFTECAS,2))+41),2)+"00" 

2050 CLG O:PAPER 2 

2060 K= 

2070 WHILE ka5 

2080 A=VALCMID$CAS,K,1)) 

2090 IF As 21, , AND A<>4 THEN LOCATE Gtk+4, 
TPRINTO” 

2100 FOR J=] TO 5 

2110 IF A=0 OR (CA>3 AND A<>7) THEN LOCAT 
E EHK+4, J:PRINT O” 

2120 IF Ax>5 AND Asx>26 THEN LOCATE EXK+E, 
JiPRINTO” 

2130 IF A MOD 2=0 AND As>4 THEN LOCATE E 
&E+4, J+S PRINT O!” 

2140 IF Asci THEN LOCATE Ekk+E, J+4 PRINT 
2150 NEXT J 

2160 IF A>1 THEN LOCATE Ekk+D, SIPRINT ” 


2170 IF A<>1 AND Asoa AND ASo7 THEN LOCA 
TE Exk+4,9: PRINT” 

2180 K=K+] 

“190 WEND 

2200 SOUND 1,478: SOUND 1, 253: SOUND 1,358 
2210 RETURN 


QTO 
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Combate aéreo 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo de reflexos (um jogador). 
Dificuldade do jogo: dificil. 


O JOGO: 

Ao centro do écran encontra-se o visor do seu aparelho, e o avião 
inimigo desloca-se na sua frente, de um modo que ao princípio pode 
parecer-lhe incoerente. 

Você pode deslocar-se em todas as direcções, graças às setas de 
movimento, e vai tentar apanhar o inimigo no centro do seu visor. 

Dispara sobre ele premindo COPY, e vê os projécteis convergirem 
sobre o alvo. Mas este continua a deslocar-se, mesmo enquanto você 
dispara, e não é lá muito evidente que consiga apanhá-lo. 

A partida continuará a desenrolar-se até que você o tenha atingido 
(aparecendo então a mensagem GANHOU!). 


O PROGRAMA: 

A linha 70 desenha o aparelho inimigo, cuja deslocação aleatória 
será realizada pelas linhas 90 e 100. 

As linhas 120 e 130 permitem-lhe pilotar o seu aparelho. 

A linha 170 desenha o visor do seu aparelho. 

A rotina de gestão do tiro vai da linha 200 à linha 250, e o teste de 
fim de partida é feito na linha 240. 

A linha 180 verifica se você disparou ou não. 

O ruído da metralhadora é provocado pela chamada da rotina 
260-270, durante o tempo do disparo, graças à ordem EVERY. 


PARA JOGAR: 

Depois de o programa ter sido posto em funcionamento com 
RUN, você deve manobrar para tentar enquadrar no seu visor o apare- 
lho inimigo. 

Para isso dispõe das setas de deslocação (teclas t,1,-,—), e 
pode disparar a qualquer momento premindo a tecla COPY. 

O aparelho inimigo pode continuar a deslocar-se de modo aleató- 
rio, mesmo depois de você ter disparado. 

A partida terminará com a impressão da mensagem GANHOU!, 
se você atingir o avião inimigo. 

Pode-se também parar em qualquer momento premindo ESC duas 
vezes. 
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EXTENSÕES POSSÍVEIS: 

Será bastante fácil fazer uma apresentação no écran com um gra- 
fismo mais cuidado, utilizando a cor. Poder-se-á pensar em estabilizar 
a posição do avião inimigo durante o tiro. 

Pode-se também introduzir vários aviões, contar os pontos ou 
o tempo, tomar em consideração a sua própria reserva de combus- 
tível, etc. 


10 REM COMBATE AEREO 

20 RANDOMIZECTIME ) 

30 EVERY 4,1 GOSUE ZE0:DI 

AO CLS 

50 A=5:B=15: AV$E=CHRSC 242) +CHR$C19S)+CHR$ 
(Eds) 

EU N=21 

70 LOCATE E,A:CALL SEDIS:PRINT AV& 

BO Uz=A: V=B 

30 A=A+rZRINTCRNDAZ)-—] 

100 E=B+2KINTCRND&EZ)-] 

No Ag=INKEY$ 

120 B=E-ZKCAB=CHRS CAPS) +ZACAB=CHRECAF DZ) 


130 A=A-ZKCAB=CHR$E CHF TD) +2KCAB=CHRECBFO) 


O IF B<1 OR B>38 THEN B=ABSCE-37) 

3 IF AX] OR ArZ4 THEN AZABSCA-Zã) 

3 LOCATE V,U: era SBDIS PRINT? " 

O LOCATE 18, :PEN 2 PRINT CHR$C 150), CH 


(151): CHR$CIMA); CHR$C 157): LOCATE 13,1: 
RAE CHR$(14773; CHR$CIE5)/CHR$CI5Z) PEN 


EO IF AB=CHRSCREO) OR N<Z1 THEN GOSUE & 
BID) 

130 GOTO 70 

200 EITUFEN FILOCATE ES-N,NIPRINT CHR$CEO 
4): LOCATE N+9,N:PRINT CHASE DOE: FEN 1 
210 LOCATE 29-N ANIPRINT O” "ELOCATE N+9,N 


230 IF N>29 THEN RETURN ; 

240 IF (CABSCIO-AJ)<X=T) AND ((RO-B)X=4 A 
ND Bx=20) THEN  LOCATE E,A:FEN SEPRINT AV 
G&:PAPER Z: PEN 3: LOCATE 17,23! PRINT "GANH 
QUI" PAPER O: END 

250 N=21: DI. RETURN 

260 SOUND 1,271, 1,5 

270 RETURN 
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Cartaz publicitário 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: cartaz publicitário. 
Dificuldade do jogo: nenhuma. 


O JOGO: 

Um texto qualquer deverá ser introduzido no início do programa. 
Poderá ser relativamente longo (mas inferior a 254 caracteres); esco- 
lher-se-á em seguida o sentido e a velocidade a que deve desfilar, após 
o que o texto vai aparecer (só uma linha de cada vez) e começará a des- 
filar, à velocidade e no sentido escolhidos. 


O PROGRAMA: 

O texto será introduzido, letra por letra, nas linhas 70 a 100. 

A apresentação será feita em formato grande, graças à linha 160. 

O sentido de desfile para a esquerda é preparado na linha 190, e o 
desfile para a direita na linha 200. 

O texto será impresso no écran pela linha 180, e a duração da 
apresentação (velocidade de desfile) é escolhida pelo ciclo 210-240. 

A linha 230 permitirá mudar as condições de desfile, se o desejar- 
mos. 
Uma ordem EVERY, suspensa durante a recolha dos dados, per- 
mite mudar regularmente a cor das impressões (rotina 260-270). 


PARA JOGAR: 

Far-se-á correr o programa com RUN. Após a apresentação da 
mensagem ENTRE O SEU TEXTO, introduzir-se-á o texto que se 
quer fazer desfilar, seguido de ENTER. 

Obtém-se em seguida a pergunta DESFILE PARA A DIREITA 
(D) OU PARA A ESQUERDA (E)?, a que se responderá teclando D 
ou E. 

Depois, à pergunta VELOCIDADE?, responder-se-á introduzin- 
do um número grande para uma velocidade elevada ou um número pe- 
queno para uma velocidade baixa (por exemplo, de O a 40 ou mais). 

O texto começará a desfilar logo que se tenha teclado ENTER. 

Se se deseja mudar as condições de desfile basta carregar na tecla 
O para reaparecerem as perguntas SENTIDO e VELOCIDADE. 

Para interromper o programa tecleia-se ESC duas vezes. 
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EXTENSÕES POSSÍVEIS: 
Poder-se-á introduzir a cor, realizar uma impressão ondulante, fa- 
zer subir as linhas no écran, etc. 


10 REM CARTAZ PUBLICITARIO 

20 EVERY 250 GOSUE ZE0:DI 

30 CLS 

AU Eg=" ” 

50 PRINT “ENTRE O SEU TEXTO :” 

£0O PRINT 

70 Ag=INKEY$S: IF Ag="" THEN 70 

SO IF A$=CHR$C 13) THEN B$=B$+" ":GOTO 11 


30 Bs=ES+AS 

100 FEN 3: FRINT Ag; : GOTO FAS, 

Wo PRINT: PRINT:PEN TJ. PRINT “DESFILE PAR 
A À DIREITA (CD) OU FARA A ESQUERDA CE)?" 
PEN 2: INFUT *“",S$: PEN 

0 PRINT 

O PRINT Ever (DE O A 50)?" , : PEN 
INPUT “º”,ViFEN 1 

V=51-V 

EI 

MODE O 

170 T=LENCE$) 

180 LOCATE 1, 1Z:PRINT ” "+MID$ECES,1,18)+ 


190 IF LEFT$&(S$, 1)="E” THEN BS=RIGHT$CES 
à T=-1)+LEFTSCES,1) 

200 IF LEFT$&CS$,1)="D” THEN ES=RIGHTSECES 
(ID+LEFTSCES, T-1) 

210 FOR J=0 TO 10XV 

220 CE=INKEY$ 

230 IF C$="0" THEN MODE 1:DI!GOTO 110 
240 NEXT J 

250 GOTO 160 

Z£0 C=(C+1) MOD 25: INK 1,1+C 

270 RETURN 


Qin be -- Ghhioo 


ed mt mt ff 3 mim 
ooo 
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O jogo do míssil 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: contra o AMSTRAD. 
Dificuldade do jogo: média. 


O JOGO: 

O AMSTRAD encontra-se em estado de alerta: você está aos 
comandos de um avião encarregado de uma missão de espionagem no 
seu território; o seu objectivo é sobrevoar uma base inimiga (represen- 
tada por um carácter ampliado) e regressar são e salvo à sua base. 
Mas, quando o AMSTRAD o referenciar, ele vai enviar em sua perse- 
guição um míssil aperfeiçoadíssimo que não descansará enquanto não 
o destruir. 

O seu avião pode deslocar-se em todas as direcções, graças às te- 
clas de 1 a 9. Conseguirá cumprir a sua missão? 


O PROGRAMA: 

A linha 50 desenha a base (sob a forma de um H ampliado). 

A linha 60 desenha a sua base de partida. 

As linhas 80 e 90 escolhem o momento de partida do míssil. 

A linha 100 desenha o seu avião. 

As linhas 120 e 130 definem o seu movimento segundo oito direc- 
ções, utilizando as rotinas das linhas 220, 230, 250 e 260. 

A linha 140 assegura a partida do míssil, que é desenhado pela li- 
nha 150; a deslocação do míssil é gerida pelas linhas 160 e 170. 

As linhas 180 e 200 controlam o fim da partida. 


PARA JOGAR: 

Fazer correr o programa com RUN. 

O campo de jogo é apresentado no écran e você pode deslocar o 
seu aparelho, utilizando as teclas de 1 a 9, de acordo com a seguinte 
convenção: 


, 
*y ç dl 
) | 
-4 E 6 
1 3 
da 
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Deverá fazê-lo contornar o território inimigo (se o míssil toca nes- 
te território a partida acaba). 

Se o míssil o destruir obterá uma mensagem ATINGIDO!... e a 
partida acaba. 

Para acabar a partida basta teclar ESC duas vezes. 


EXTENSÕES POSSÍVEIS: 

Será sem dúvida necessário melhorar os diversos controlos do pro- 
grama (o avião sobrevoa a base inimiga, regressa à sua própria 
base...). 

Pode-se também prever diversos níveis de jogo (fazendo, por 
exemplo, variar a velocidade do míssil), prever a utilização de engodos 
pelo avião, a explosão do míssil ao cabo de certo tempo, etc. 


10 REM O JOGO DO MISSIL 

20 RANDOMIZE(TIME) 

30 EVERY 10 GOSUÊE 280:DI 

40 CLS:M=0 

50 LOCATE 18,6:FEN S: PRINT CHR$C141 

$( 142); CHR$C IO) STRINGS(2, E 35 CHR$C] 

HR$C 139) 

60 FEN Z!LOCATE 1,21: PRINT STRINGÉC4, 1% 
2: LOCATE 1 22: PRINT STRING&(4, 1275: FEN 

70 U=34 :V=16, X=2:Y=20 

BO S=INTCRNDAV+3) 

20 S=S—- 1 

100 LOCATE X,Y:FRINT CHR$CZ39); 

110 AS=INKEY$! IF A$="" THEN 110 

120 A=VALCAS) F=SENCE. S-AJ+ZECA=4) 

130 ON CA AND A<5)+CC10-A) AND A>5) GOSU 
220, 230, £50, 260 

140 IF 5x>0 THEN 90 ELSE EI 

150 LOCATE U,V:PEN SEPRINT CHR$CESROS CPE 

NI 

1€0 U=U-SGNCU-X 5 

170 V=V-SGNCV-Y) 

180 TF (cU=X AND U= Y) THEN LOCATE 1,23: 
INT "ATINGIDO! .. "INK 0,:3,0:SOUND 1,: 
!SOUND 1,379: SOUND 1,4768:FOR 1=1 TO 50 

NEXT I:INK O, 1: END 

190 IF X>=20 AND Y<4=5 THEN M=1 

Zz00 IF M=1 AND Xx=4 AND Y=20 THEN LOCATE 
TV 23: PRINT "MISSAO CUMPRIDA”: SOUND 1,47 

E: SOUND 1,375: SOUND 1,:319:END 

210 GOTO 100 

Z20 X=X-F 

280 Y=Yy+F 

=40 RETURN 

250 GOSUE 230 

EO X=X+F 

2º0Q RETURN 

“80 SOUND 1,1000,%,2,0,0,1 

290 RETURN 


3; CHR 
35); 


c 
<7 
1 
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Submarino 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo de reflexos (um só jogador). 
Dificuldade do jogo: fácil. 


O JOGO: 

Você comanda um caça-submarinos (à superfície, portanto) e sob 
a sua unidade passam regularmente submarinos, a diferentes veloci- 
dades. 

Pode, em qualquer momento, largar granadas submarinas e pode 
pôr a hipótese de atingir várias vezes o mesmo submarino. 

A sua pontuação estará permanentemente exposta, ao centro do 
ecran (relação entre o número de disparos que atingiram o alvo e o nú- 
mero de submarinos aparecidos). 


O PROGRAMA: 

A linha 70 permite ao AMSTRAD escolher a profundidade do 
submarino. 

A linha 90 desenha o seu navio. 

A linha 100 desenha a superfície da água. 

A linha 120 desenha o submarino. 

O disparo é efectuado por uma rotina específica colocada nas li- 
nhas 200 a 240. 

A deslocação (muito rápida) do seu navio é realizada pelas linhas 
170 e 180. ; 

O teste que permite saber se atingiu ou não o alvo é efectuado na 
linha 140. 


PARA JOGAR: 

Teclar RUN para começar a partida. 

O navio será deslocado graças às setas direita e esquerda. 

A tecla O permite disparar. 

Como o navio se desloca três vezes mais depressa que os submari- 
nos, é possível atingir várias vezes o mesmo alvo. 

Para terminar a partida é preciso teclar ESC duas vezes ou atingir 
99 submarinos. 
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EXTENSÕES POSSÍVEIS: 

É bastante elementar melhorar a qualidade gráfica do jogo, utili- 
zar a cor e os sons, fazer aparecer vários submarinos deslocando-se a 
velocidades diferentes, eventualmente permitir até que os submarinos 
disparem.... 


10 REM SUBMARINO 

20 RANDOMIZECTIMEJ EVERY 100 GOSUE 250 
0 INK O,O INK TG: INK 2, IB: INK 3,2 

40 F=0:(=16.5=5 


50 CLS 

Led) RasatE V,S:FPRINT STRING$C5,” "3 

Fá Efe 7: S=INTCRND&2+5) :P=P+0.0] 

R =? 

30 FEN Z:LOCATE CS PRINT o” A CHR$CLIS 


)iCHR$CIAZ),CHR$CIATOD CHR$CZT2ZD, 

100 LOCATE 1,4! FEN S: PRINT STRING$C40,CH 
R$C 1969) 

Wo FAFER T:FEN 2 LOCATE 15, 19:FRINT UST 
NG “FONTUACAO EH. EEUSPLPAP ER O 

1ZO FEN Z.LOCATE T,S:PRINT CHR$C1545,CHR 
$(23]2;CHR$C1549500 

10 IF X=% THEN Y=C+2 

140 IF S=X AND (T+l=Y OR T+2=Y) THEN P=P 
aaa T,S: PRINT "KKK": SOUND 1,456,20 
13,0,0, 

150 T=T-1: IF 100XCF-INTCF))2=99 THEN LOC 
ATE 1 Zi PRINT “ACABOU E 6 A Tudo dr tata 
ER A a cd " SOUND 1,478. SOUND 1,4% 
SOUND 1,:373: END 

£0O IF Til THEN LOCATE Y,X:PRINT O” ":G0T 
7 


180 C=C+3 ECC AS=CHRS (AF 2 3 AND C>1)-CA$=CH 
R$CaF3) AND Cx33)) 

190 IF A$<>"0"” AND X=Z THEN S0 

id LOCATE Y,X:IF X=2 THEN FEN 2 ELSE PE 
210 PRINT”? 25 X=X+] 

220 IF X>S THEN BO 

230 LOCATE Y, X:PRINT CHR$C2Z52) 

40 GOTO 90 

250 SOUND 1,200, &: RETURN 
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Jogo do galo 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: jogo de reflexão (dois jogadores). 
Dificuldade do jogo: fácil. 


O JOGO: 

Um grande clássico dos jogos de estudantes, aqui proposto numa 
versão que não usa a máquina como opositor. Cada jogador deverá 
colocar, à vez, um O ou um X (aqui o simbolo de copas ou o de ouros 
— um coração ou um losango) numa casa livre da grelha do jogo. Ga- 
nha o que primeiro conseguir um alinhamento de três símbolos idênti- 
cos (o alinhamento pode ser horizontal, vertical ou segundo uma das 
diagonais). 


O PROGRAMA: 

O campo de jogo é desenhado com a ajuda do ciclo I (50-70). 

A linha 90 ocupa-se de imprimir o símbolo de copas ou o de ouros 
correspondente ao jogador que está na sua vez de jogar. 

Um símbolo cintilante (linha 120) é impresso no canto superior es- 
querdo do campo de jogo, mesmo que a casa já esteja ocupada; as li- 
nhas 150 e 160 permitem deslocar esse símbolo pelo campo de jogo. 

A linha 170 verifica se a casa onde se quer jogar está livre, e se se 
deseja jogar. 

A linha 180 regista as jogadas e a linha 190 realiza a mudança de 
jogador. 


PARA JOGAR: 

O campo de jogos será apresentado no écran depois de se ter tecla- 
do RUN. 

Um símbolo cintilante aparece então no canto superior esquerdo 
do écran; o jogador pode deslocá-lo no campo de jogo utilizando as 
quatro setas (teclas —,—,1,1). 

Quando se chega à casa que se deseja ocupar basta premir a tecla 
COPY; a jogada será recusada se a casa não estiver livre. 

Se a casa estiver livre, o simbolo que corresponde a esse jogador é 
nela inscrito, e muda a vez do jogador. 

Quando a partida termina convém teclar ESC duas vezes para sair 
do programa. Poder-se-á depois jogar outra partida, teclando RUN. . 


201 


EXTENSÕES POSSÍVEIS: 

Poder-se-á realizar após cada jogada um controlo para verificar se 
um dos jogadores ganhou. Pode-se também realizar um jogo contra a 
máquina, mas convém evitar que ele seja demasiado sistemático (por 
exemplo, evitar que a máquina faça sempre a sua primeira jogada na 
casa central). 


10 REM hd DO GALO 
30 INF O, TECINK To GCINE 226: INK 3,6:B0 


AO CLG 1 
50 FOR I=1 TO 9 
60 FEN OLLOCATE 6, I+1: PRINT STRING$CS,14 


E ad I 

SO Kz( 

90 LOCATE E, 1S:FAFER G.FEN 2+k PRINT “JO 
GADOR  "+CHR$CEzB-ko): PAPER O 

100 1I=1: J=1 

o ones ah CORECI+HTIDESL+HTE, CEB-CSRTIIRI 
foi 

120 FEN Z+KILOCATE 1+3ECI+HIO, GRI PRINT C 
HR$C 143) 

130 LOCATE 1+3kCI+HIS, 3H]. IF C4>0 THEN PE 
N CIPRINT CHR$(230-C) ELSE PRINT” * 

140 Ag="" AS=INKEY$ 

150 I=I-CAS=CHR$CAFS) AND Ix3)+CAS=CHR$C 
AF2) AND I>1) 

1E0 J=J-CAB=CHRECHET) AND J43)+CAB=CHR$C 
8F0O) AND J>15 

1720 IF C<4>0 OR ABe:CHRSCHEO) THEN 110 
TEO LOCATE 1+3KCI+HID, SEJ: PEN 2+KE PRINT C 
HR$Caizo-k) 

190 E=ABSCk-1) 

200 GOTO SO 
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«Smokey» 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: solitário. 
Dificuldade do jogo: média. 


O JOGO: 

Uma coluna de fumo amarelo aparece no écran. O jogador, repre- 
sentado por uma cabeça, torna-se visível à direita. Primeiro o jogador 
deve posicionar-se sobre a coluna de fumo; depois, a partir daí, vai au- 
tomaticamente engolindo o fumo, desde que consiga manter-se sobre a 
coluna. 


O PROGRAMA: 

A linha 60 faz aparecer o fumo na base do écran; a linha 70 per- 
mite mudar (para a direita ou para a esquerda) a direcção da coluna, e 
a linha 90 faz subir a coluna. 

O jogador aparece graças à linha 110, e a sua deslocação é efec- 
tuada pelas linhas 160 a 180. 

As linhas 230 a 250 encarregam-se da apresentação do resultado. 


PARA JOGAR: 

Fazer correr o programa com RUN. 

O fumo começa a elevar-se, enquanto o jogador, aparecido sob a 
forma de uma cabeça vermelha num canto do écran, vai sendo desloca- 
do na sua direcção com a utilização das setas. Quando se coloca sobre 
o fumo começa automaticamente a engoli-lo, e deverá tentar seguir a 
coluna sem se desviar (usando as setas). Ganha se conseguir chegar à 
base do écran antes de o fumo atingir o topo do écran. 

A mensagem final que aparece no écran indica então BRAVO! ou 
PERDEU ...., assim como a pontuação obtida. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á, conservando a ideia inicial, impor outras regras: por 
exemplo, engolir todo o fumo, que poderá também voltar a surgir de 
outro local se se desvia da coluna inicial. 

Poder-se-á também melhorar os controlos de fim de partida e a 
qualidade do grafismo. 
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10 REM "SMOKEY” 

20 RANDOMIZECTIMES 

30 S=0, X=24:Y=1+INTCRNDX40) 

O U=):V=17 

50 CLS 

60 LOCATE Y, X:PRINT CHR$C22B) 

70 Y=Y-CRND<O.5 AND Y<24)+CRND<O.5 AND Y 


30 X=X-T 
100 IF X=0 THEN 230 
Wo FEN FILOCATE VU: PRINT CHR$CZZ4) UPE 


1 
£O IF Ur=24 THEN 230 
30 IF T4>0 THEN FOR I=0 TO 300:A$=INKEY 
IF A$<>"” THEN 150 
40 IF T<»0 THEN NEXT 1 
BO LOCATE V,U:PRINT O” 
EO atos o raio AND T=1 AND X<23 
70 U=U-(T=0) 
80 V=V-CAG=CHR$CAFZ) AND VÍ40)+CAS=CHR$ 
8F2) AND V>1) 
90 C=TESTCCV- IH ]E+B, C2SB-UDKITE+E) 
00 IF Cx»] THEN 60 
210 T=0,S=S+] 
220 GOTO 110 
230 LOCATE 12, 12: IF VU>=24 THEN PRINT O” 
BRAVO!" SOUND 1,473: SOUND 1,379: SOUND 1, 
213: GOTO 250 
40 FOR 1=1 TO 6:SOUND 1,2 278, 10,6*XCI MOD 
2):NEXT I!PRINT “PERDEU. 
une E 12, 14:FRINT USING “PONTUACAD: 


tás ss ds sy Ss 7 


o 


Nu 
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Corrida de carros 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo de reflexos (um jogador). 
Dificuldade do jogo: média. 


O JOGO: 

Você circula numa estrada muito sinuosa, sem qualquer obstá- 
culo, e deve tentar segui-la tanto tempo quanto for possível. O tra- 
çado do seu percurso permanece impresso permanentemente e a sua 
pontuação é apresentada quando tiver um acidente. 


O PROGRAMA: 

A impressão da estrada é assegurada pelo ciclo I (70-100). 

A linha 110 faz avançar a estrada e a linha 120 imprime a viatura. 

A linha 150 controla o seu movimento e a linha 160 determina se a 
estrada faz viragens ou não. 

A linha 180 verifica se tocou na borda da estrada. 

A linha 190 incrementa a pontuação. 

A linha 230 imprime o tempo decorrido até ao acidente. 


PARA JOGAR: 

Iniciar a execução do programa com a ordem RUN. O desenho da 
estrada começa a evoluir e o seu veículo, representado por uma viatu- 
ra, aparece. 

Para o deslocar para a direita ou para a esquerda deverá utilizar 
as teclas e (setas de deslocação do cursor). Terá de evitar, durante 
tanto tempo quanto for possível, tocar qualquer das bordas da estra- 
da, o que provocará a paragem do programa e a impressão da mensa- 
gem ACIDENTE, seguida da indicação da pontuação realizada. 

Em qualquer momento poder-se-á parar o desenrolar da partida 
premindo duas vezes a tecla ESC. 


EXTENSÕES POSSÍVEIS: 

Pode-se pensar num jogo com vários jogadores, cada um na sua 
vez, registando a melhor pontuação obtida por cada qual. 

Pode-se também encarar a possibilidade de alargar a pista e de fa- 
zer correr várias viaturas. 

Poderá também inspirar-se nos jogos de arcada, que são parti- 
cularmente numerosos sobre este tema. 
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10 REM CORRIDA DE CARROS 

20 RANDOMIZECTIMES 

O SYMBOL AFTER 240 

40 SYMBOL 240,93,127,85,20,93,127,93,8 
BO T=TIME.CLS:PEN 1 

O X=24:Y=]1,A=5:E=10:5=0 

70 FOR 1=0 TO E 

80 LOCATE Y+1I+17, X+1: PRINT CHR$C 1432) 

90 IF I<2 OR [>4 THEN PEN Z!LOCATE Y+1+] 
SRHIL PRINT CHR$CZ0O7ZI9; FEN 

100 NEXT I 

No FRINT:PRINT 

120 LOCATE E, ASPEN S:PAPER O-CN>189:PRIN 
T CHR$CZ40): FAPER O:FEN 2 

130 FOR 1I=1 TO IO.A$=INKEY$: IF Ag="" THE 
N NEXT T 

140 C=E 

150 E=E-CAS=CHR$CAF 3) AND E<40)+CAB=CHR$ 
cariz) AND E>1) 

seo Y=Y-C-2KRND AND Yc25)-C2kRND AND Y>3 


170 IF NX19 THEN N=N+1:GOTO 200 

1BO IF TESTCCE-]DEIE+E, (25-A-IDEIE+B)<D] 
THEN 220 

190 S=5+] PAPER 1 

200 LOCATE C,ALPRINTO” 

210 FAFER O: GOTO 70 

220 LOCATE ZOO, TZ: PAPER Z: PEN S:PRINT USI 

NG “ACIDENTE. FONTUACAO ERR SS 

230 LOCATE 20,14: PRINT USING “TEMPOS: HE 
E"; ROUND CC TIME-T)/300) 

240 SOUND 1,478: SOUND 1, 426: SOUND 1,379 
250 PAPER O:PEN 1 
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Perigo espacial 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo de reflexos (um jogador). 
Dificuldade do jogo: média. 


O JOGO: 

Você comanda um engenho espacial que acaba de penetrar numa 
nuvem de meteoritos. Deve tentar ultrapassar a nuvem sem chocar 
com um único meteorito. A sua pontuação será apresentada no fim da 
partida, quando colidir com um meteorito. 


O PROGRAMA: 

A posição de cada meteorito é determinada pelas linhas 60 e 80, e 
é impressa pelas linhas 70 e 90. 

O avanço dos meteoritos é realizado pela linha 100. 

As linhas 100 e 110 verificam se você colidiu ou não com um me- 
teorito. 

A linha 120 desenha a sua nave espacial e a linha 140 permite des- 
locá-la. 

O contador encontra-se na linha 150. 

A linha 500 provoca um bipe-bipe durante todo o tempo do jogo. 


PARA JOGAR: 

O jogo é iniciado com a ordem RUN. 

A sua nave aparece pelo meio do écran e os meteoritos vêm ao en- 
contro dela a partir da base do écran. Para se deslocar pode utilizar as 
teclas de deslocação horizontal (—e—). 

Pode-se acabar a partida em qualquer momento teclando ESC 
duas vezes. De outro modo, o jogo acaba quando você chocar com um 
meteorito, e a pontuação é então exibida no écran. 


EXTENSÕES POSSÍVEIS: 

Seria interessante tornar o jogo cada vez mais difícil fazendo apa- 
recer cada vez mais meteoritos à medida que a partida se vai desenro- 
lando. 

Pode-se também tentar destruir os meteoritos pulverizando-os à 
medida que aparecem. 
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10 REM PERIGO ESPACIAL 
20 RANDOMIZE (TIMES 
30 EVERY 10 GOSUE 500 


50 X=1B!Z=0!Y=k 
60 H=1+INTCRNDX38) 
70 IF ANDO THEN LOCATE H,25:PEN 2:PRI 


Bo + =1+INTCRND 38) 

30 LF RND<0.6 THEN LOCATE K, 25:PEN T:PRI 

NT CHR$(231): 

100 LOCATE 1,25: PRINT CHR$CIO)  B=TESTCCX 

“IDRIE+S, C2B-T2)KTE+B)  C=TESTOXHIE+S, (25 

-1J2)X1E+8) 

Wo IF E MOD 32:>0 OR C MOD 3<>0 THEN 190 
20 LOCATE Y, II: PRINT STRING&CZ, 32); 

130 LOCATE X, 12: PEN PRINT CHR$C242)+CH 

R$C243); 

140 AB=INKEY$ 

150 Y=X 

160 X=X-CAB=CHR$CBF 3) AND X<27)+CAB=CHR$ 
(êFz) AND X21) 


I7O Emg+] 

130 GOTO &0 

190 TE=O:/WHILE TE<Z200:SOUND 1, TE, II! TESTE 
+ TE WEND 

200 LOCATE 11,26:FAFER 3:FEN JºFPRINT "A 
FONTUACAO E “;Z:FAPER O:!PEN 1:END 

500 SOUND 2,40, Z: RETURN 


208 


«Diago» 


REFERÊNCIAS: 
Dificuldade de programação: fácil. 
Categoria de jogo: jogo de reflexos (um jogador). 
Dificuldades do jogo: difícil. 


O JOGO: 

Faz-se correr o jogo com RUN e obtém-se uma primeira mensa- 
gem que o informa sobre a performance a atingir (por exemplo, cinco 
pontos negros ou dezassete pontos negros...), depois o tempo é im- 
presso e inicia-se a contagem decrescente, a começar em 10 segundos. 
O jogo principia quando se chega a O segundos. Começam então a apa- 
recer círculos na parte inferior esquerda do écran, formando uma linha 
diagonal, e você deve premir a tecla O para parar a impressão dos pon- 
tos quando calcular que o número de pontos inicialmente pedido já 
apareceu no écran. 

Obtém-se então uma mensagem de BRAVO! ou de PERDEU!, 
conforme o resultado obtido. 


O PROGRAMA: 

O número de pontos negros será escolhido ao acaso, na linha 50. 

O tempo é descontado pela rotina 240-260, chamada a cada se- 
gundo (linha 309). 

A linha 120 imprime os pontos e fabrica a linha diagonal. 

A pressão da tecla O é detectada na linha 150, e a linha 170 contro- 
la o fim da partida (qualquer reflexo). 

As mensagens de fim de jogo são executadas pelas linhas 170, 200 
e 210. 


PARA JOGAR: 

Faz-se correr o programa com RUN. 

Obtém-se então a impressão no écran da frase O BOM REFLEXO 
E" O DE..., que indica o número de pontos que permite ganhar. 

O tempo será então descontado sob a forma de ATENÇÃO: 
FALTAM ... SEGUNDOS, que indica o tempo que resta antes da apa- 
rição da diagonal. 

Quando se atinge 0, a diagonal aparece e começa a deslocar-se no 
écran. 

Se se calcula que foi atingido o número de pontos anunciado deve- 
se premir a tecla 0. 
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A mensagem impressa no écran será então BRAVO!, se se ga- 
nhou, ou PERDEU!, no caso contrário. Depois aparece a frase OU- 
TRA TENTATIVA (S/N)?; responder S para jogar outra partida. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á encarar uma adaptação do jogo para dois jogadores ou 
mais, deixando a diagonal formar-se completamente e testando a coin- 
cidência aquando da pressão da tecla afecta a cada jogador. 

Pode-se então realizar um grafismo mais cuidado e modificar o 
princípio da deslocação dos objectos no écran (deslocação horizontal, 
vertical ou aparição ao acaso...). 


10 REM “DIAGO? 

“o RANDOMIZECTIME) 

0 EVERY BO GOSUE Z40 

ao CLS 

BO X=INTCRNDKI5+3) 

EO E=10 

70 FRINT “O BOM REFLEXO E' O DE “;: PAPER 
S1PRINT STRING$CX, 202): FAPER O 

20 WHILE S>0: VEND 

30 DI 

100 CLS 

Wo U=] 

120 LOCATE 1, ZE: PRINT TABCU) CHR$ECZOZ) 
130 FOR I=1 TO 100:NEXT 1 

140 U=U+1 

150 Ag=INKEY$ 

160 IF A$="0" THEN 190 

170 IF U>22 THEN FEN S:PRINT “PERDEU! C MY 
HILE TE<XZ00:SOUND Z, TE, 1: TE=TE+) WEND: PE 
N 1:G0TO 210 

180 GOTO 120 

1980 IF Ux>X+7 THEN U=23:G0TO 170 

200 PEN Z:PRINT "BRAVO!" SOUND 1,478:50U 
ND 1,426: SOUND 1,379.PEN 1 

210 PRINT:PRINT "OUTRA TENTATIVA €S/N3” 
220 AS=INKEY$: IF A$="" THEN Z20 

230 IF UPPER$CA$)="5" THEN RUN ELSE END 
240 LOCATE 5, 12Z2:FRINT USING “ATENCAO. FA 
LTAM KH SEGUNDOS"; S 

250 S=E-] : SOUND 1,200 

280 RETURN 
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Ovos 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: solitário. 
Dificuldade do jogo: média. 


O JOGO: 

Uma ave misteriosa desloca-se ao acaso pelo écran, batendo as 
asas. Põe ovos (representados pela letra O) que você (representado por 
um quadrado de cor) deve tentar apanhar. Atenção: só os ovos da sua 
cor dão pontos, os outros tiram-lhe pontos. A sua pontuação (número 
de ovos recuperados) será exposta permamentemente e a partida desen- 
rola-se durante um lapso de tempo definido. 


O PROGRAMA: 

A ave é desenhada em duas partes (por causa do movimento), nas 
linhas 70 e 110); a sua deslocação aleatória é gerida pela rotina 220-310 
(em particular as linhas 270 a 300). 

A linha 130 permite fazer o programa regressar à linha 70. 

A deslocação do jogador é regida pelas linhas 150 e 160 e o teste 
que permite detectar a presença de um ovo é efectuado na linha 170. 

A linha 190 permite a apresentação da pontuação. 

O fim do jogo é detectado na linha 230. 


PARA JOGAR: 

Far-se-á correr o programa com RUN. 

A ave inicia então a sua deslocação ao acaso pelo écran, e começa 
a pôr os seus ovos. Quando o símbolo que representa o jogador (um 
quadrado colorido) surge no écran, ele pode deslocar-se utilizando as 
quatro teclas de deslocação. É preciso, a partir desse momento, apa- 
nhar o máximo possível de ovos antes do fim da partida. 

Poder-se-á parar de jogar em qualquer momento premindo ESC 
duas vezes. 


EXTENSÕES POSSÍVEIS: 

Com base no mesmo princípio, poder-se-á facilmente imaginar 
outros temas de jogo. Poder-se-á, claro, melhorar a cor, os sons, o 
grafismo, e, eventualmente, definir um jogo para vários jogadores, 
cada um deles tentando apanhar o máximo de ovos. 


211 


16 REM OVOS 

20 RANDOMIZECTIME) 

30 INk 0,9 

40 SYMBOL AFTER 240: SYMBOL 240, 24, 2X4, 126 
3255, 255, 36, ,3E, RO Lo? 

BO CLS: P=200:R=1B:5=10:T=0 

EO X=]+INTCRNDE&ZE)  Y=]+INTCRNDEZI O) 

70 LOCATE X,Y:FPEN Z:PRINT CHR$C 198); CHR$ 
(240), CHR$CITSGEO 

20 FOR I=1 TO SO AS=INKEYS 

30 IF Ag="" THEN NEXT I ELSE GOS SUE 140 
100 GÓOSUE 210 

Wo LOCATE X,Y: PEN Z: PRINT CHR$C1933;CHR 
GCZ40)  CHR$CTILZD; 

120 GOSUE E10 

UZ:0 GOTO 70 

140 LOCATE R,SSPRINTOº + 

150 R=R-CA$=CHR$C&F3) AND Rezão)+ CAB=CHR$ 
cbrZ2 AND R21) 

160 S=S-CAB=CHR$BBF 1) AND Exzzo+CAg=CHR$ 
Caro) AND S21) 

Y70 G=TEST CCR-IDRIG+E, CEB-SDATE+HE) 

130 T=T-2K(G=3)+(G=2) 

190 LOCATE 15, 23: PAPER 1:FEN S:FPRINT USI 
NG “PONTUACAO REHVST; PAPER O 

£00 RETURN 

Io A=Xi Bay 

2£0 Pim] 

230 IF F=Q0 THEN PRINT “ACABOU...” : SOUND 
1,475! SOUND 1,426:SOUND 1,379: END 

240 LOCATE R,S:PAPER 3:PEN O:PRINT CHR$C 
233), PAPER O 

280 PEN Z-(CRND£O. BI LOCATE A,BIPRINTOº ? 
+CHR$ CAST dr, 

260 X=ABSCX+INTOI+AZECRND£O. 5)) 

270 Y=ABSCY+INTOT+2ECRNDEO 59) 

280 IF X»37 OR X«1 THEN X=] 

290 IF yY>22 OR YXl THEN Y=l 

300 RETURN 
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Quebra-cabeças com letras 


REFERÊNCIAS: 
Dificuldade de programação: média. 
Categoria de jogo: reflexão. 
Dificuldade do jogo: difícil. 


O JOGO: 

Qual de nós, um que outro dia, não teve entre mãos um desses 
pequenos quebra-cabeças em que se tenta deslocar de uma casa para 
outra pequenos quadrados coloridos de plástico, até à obtenção de um 
resultado bem definido? 

No seu tempo, o «14-15» de Sam Loyd teve tanto êxito como o 
nosso célebre cubo de Rubik. 

O quebra-cabeças que aqui lhe propomos utiliza 35 letras, dispos- 
tas ao acaso num quadrado de 6 por 6 casas, e essas letras, colocadas 
na sua ordem inicial, permitem-lhe reconstituir um provérbio muito 
conhecido. 

Uma casa colorida permite-lhe deslocar as letras, e um contador 
apresenta permanentemente o número de tentativas. Conseguirá desco- 
brir o provérbio? 


O PROGRAMA: 

A grelha de jogo é desenhada pelos ciclos encaixados K (70-100) e 
I (40-120). 

A frase a reconstituir (que poderá ser modificada) está colocada 
numa variável R$, na linha 130. 

A mistura das letras e a impressão são feitas pelo ciclo I (140-220). 

A linha 250 realiza a apresentação do quadrado colorido; este é 
deslocado pelas linhas 290 e 300, utilizando as quatro setas. 

A linha 320 reimprime a respectiva letra na posição do quadrado 
colorido. 

A linha 340 contabiliza o número de tentativas, que é impresso 
graças à linha 240. 


PARA JOGAR: 

Faz-se correr o programa com RUN. 

A partida, evidentemente, será muito mais difícil se não conhecer- 
mos o provérbio a reconstituir. Pode-se deslocar as letras e fazê-las 
passar para a posição do quadrado colorido, com a ajuda das quatro 
teclas de direcção (—,—,!,1). 
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O número de tentativas está permanentemente visível, por cima do 
quebra-cabeças. 
Pode-se parar em qualquer momento premindo ESC duas vezes. 


EXTENSÕES POSSÍVEIS: 

O mesmo princípio pode ser aplicado a toda a espécie de quebra- 
-cabeças (manipulação de números, de cores, eventualmente de sons). 
Pode-se também prever várias frases, com uma escolha feita por um 
gerador aleatório. 


10 REM QUEERA-CABECAS COM LETRAS 

20 RANDOMIZECTIMES 

30 MODE O 

44 FOR I=1 TO 13 

50 V=-I MOD Z!:LOCATE 4, 1+3 

£0O PRINT CHR$C TAS-(2KVI+CI=])+44C 1213 5) 0); 

70 FOR k=1 TO & 

BO PRINT CHR$CIGA+TEZANOT V5; 

ao PRINT CHR$C159+C)0ENOT V)+cCI=])+4H(I= 
EI+RECE=E AND V3); 

La NEXT K 

No PRINT 

120 NEXT 1 

150 A$g=""  R$="CANDE LAQUEVAIAFRENTEALUMIA 

DUASVEZES” 

FOR I=1 TO 35 

X=INTCRNDE&SS+]) 

IF MID$CR$,X,19="-" THEN 150 

AS=AS+MID$ECR$E,X,1) 

MID$&CR$,X,1)="—" 

X=I MOD G:Y=INTCI/E) 

ASCX, YI=MIDECASG, 1,1) 

LOCATE ZKX+5, ZEY+5 !FEN SUPRINT ASCX, 


NEXT 1 

X=01Y=0 C=32 

LOCATE 1,21: PEN EIFRINT USING “NUMER 

O DE TENTATIVAS ERR 

a LOCATE ZAX+5, ZEY+5 PEN Si PRINT CHR$C 
43) 

260 TÊ=INKEYS 

“70 IF Tê="" THEN LOCATE 2Z4X+5, ZEY+5I PRI 

NT CHR$C FZ): GOTO 250 

2EO L=XiJ=Yy 

“IO X=X-CTE=CHRECAF E) AND X25)+CTE=CHR$C 

&FZ) AND X>0) 

300 Y=Y-(TÊ=CHR$ECAFTS AND YaB)+CTÊ=CHRS$C 

SFO) AND Y>0) 

310 ASGCT, DI=ABCX, YIGASCX, Y =" 

320 LOCATE 24145, 24J+5: PRINT ABCI,T) 

330 IF 1=X AND J=Y THEN PRINT CHR$C7);:G 

OTO 250 

a e bi 1,478: SOUND 1,379: SOUND 
REAR 

250 GOTO 240 
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Alvos 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: azar. 
Dificuldade do jogo: fácil. 


O JOGO: 

Consiste simplesmente em disparar contra alvos, tentando marcar 
o máximo de pontos; o número de alvos (de 1 a 6) será escolhido no 
início da partida, e a pontuação obtida estará permanentemente visi- 
vel. Se se atinge a borda de um alvo, a partida acaba. Marcar-se-ão 
tanto mais pontos quanto maior for o número que se atingir. 


O PROGRAMA: 

O número de alvos é feito entrar na linha 50. O ciclo I (80-100) 
efectua a impressão dos alvos. 

A linha 120 apresentará permanentemente a pontuação. 

A bala é impressa pela linha 130. 

O ciclo I (150-200) realiza a impressão dos números contidos nos 
alvos e permite a deslocação da bala (linha 190). 

A linha 220 verifica se houve disparo e a linha 230 verifica se a 
bala está ainda na linha de partida. 

A linha 240 faz progredir a bala para a direita e a linha 250 verifi- 
ca se os alvos foram atingidos ou não; depois as linhas 260 e 270 vêem 
o que é que foi atingido. 

A linha 280 incrementa a pontuação. 

As linhas 290 e 300 ocupam-se do fim da partida. 


PARA JOGAR: 

Fazer correr o programa com RUN e teclar o número de alvos de- 
sejado, seguido de ENTER. Os alvos são impressos no écran e a parti- 
da começa. A sua bala, representada por um O, é apresentada no can- 
to inferior esquerdo; pode deslocá-la com as setas para cima e para 
baixo (teclas te!) e pode disparar quando quiser premindo COPY. 

A pontuação será modificada em função do resultado obtido, e 
aparece uma nova bala. É possível parar em qualquer momento pre- 
mindo ESC duas vezes; de outro modo, o jogo acaba ao fim de certo 
número de tiros. 
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EXTENSÕES POSSÍVEIS: 

Poder-se-á sem dificuldade aumentar o número de alvos, modifi- 
car a regra de aparição dos números nos alvos para a tornar menos ca- 
sual, providenciar para que a própria bala seja representada por um 
número que deverá coincidir à chegada com o do alvo. 


10 REM ALVOS 

0 RANDOMIZE( TIME) 

30 INK 0,9 

40 PRINT: INFUT “NUMERO DE ALVOS: “;N 

80 IF NX] OR N>6 THEN 40 

BO F=10:J=30:5=0:E=] 

70 CLS 

20 FOR I=1 TON 

30 LOCATE J+), 3X: PRINT CHR$C140);CHR$C1 
Se): LOCATE T+), 3414]! PRINT” » CHR$(132) 
ILOCATE J+1, SK1+Z: PRINT CHR$CIZ1);CHR$CI 
29) 

100 NEXT 1 

WO E=0,A=]B&16 

1zO LOCATE &, 21: PAPER 1:FPEN SUIPRINTOo USI 
Na “PONTUACAO HEHE —- BALA HRE “IS;BI:PAPER 
q 

120 TAGIMOVE E, ASPRINT CHR$CZ31);: TAGOFF 
140 D=A 

150 FOR 1I=1 TO N 

TEO U=INTCRNDKP') 

1720 LOCATE J+y,3KI+1 PAPER Z: PRINT CHR$C 
Ur4E) VC I)=U 

180 AS=INKEY$ 

190 A=ArARCAS=CHR$CSFT) AND APEXTEJ-ARCA 
= mica AND A<400) 


210 TAG:MOVE kK,D:PRINT O” “,: TAGOFF 

220 IF Ag=CHRECREO) AND k=0 THEN B=B+1:6 
TO 240 

20 TF Kk=0 THEN 130 

Cão E=k+1E 

250 IF KSTE6RIT THEN 130 

260 C=TEST (K+15,0-8) 

270 IF Cor THEN LOCATE 12, 12:FPRINT "PER 
DEU!“ WHILE TE<200: SOUND 1, TE, II TE=TE+1: 
VEND: PAPER O: END 

CBO Gm s+VCROUNDO (O 25-CCA-82/16))/:3)) 

290 P=E-1 PRINT CHR$C79; 

300 IF P=0 THEN SOUND 1,478. SOUND 1,426: 
SOUND 1,:2:79. END 

210 GOTO 16 


216 


Gotas 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: desenho. 
Dificuldade do jogo: nenhuma. 


O JOGO: 

É um verdadeiro programa de desenho animado que se pode con- 
siderar, de facto, como um passatempo. No écran está desenhado um 
recipiente, visto em corte, contendo já obstáculos. Uma gota de água, 
simbolizada por um círculo azul, aparece por cima do recipiente e cai, 
preenchendo-o pouco a pouco. A sua trajectória, à medida que encon- 
tra um obstáculo, é completamente determinada pelo acaso: salta para 
a direita ou para a esquerda, até já não haver mais nenhuma possibili- 
dade. Então cai uma nova gota, e assim por diante até finalmente 
transbordar. 


O PROGRAMA: 

Os dois ciclos encaixados I (60-130) e J (70-120) desenham o reci- 
piente e os obstáculos. 

A linha 170 desenha a gota e a linha 210 envia para uma rotina 
(370-390) que permite determinar se há ou não choque com um obs- 
táculo. 

Se não há choque, passa-se para a linha 290 e a gota continta 
a cair. 

Se há, a gota salta para a direita ou para a esquerda (linha 230), 
de acordo com o valor definido para K na linha 150. 

Verifica-se de novo se há ou não obstáculo ou se a gota pode con- 
tinuar a cair (linhas 240, 250 ou 260). 

Consoante o resultado do teste será utilizada a linha 270, 290, 310 
ou 340. 


PARA JOGAR: 

A ordem RUN desencadeia o desenho do recipiente e dos obstácu- 
los; a gota aparece, começa a cair e acaba por encontrar um lugar. 
Aparece outra gota e tudo recomeça. 

O programa pára por si próprio quando o recipiente transborda; 
pode-se pará-lo em qualquer momento premindo ESC duas vezes. 
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EXTENSÕES POSSÍVEIS: 

Pode-se, claro, acrescentar a cor e o som e também pensar num 
jogo em que uma pequena personagem tenha de escapar às gotas ou ao 
afogamento. 


10 REM GOTAS 
20 RANDOMIZECTIME) 
30 SYMBOL AFTER 240: SYMBOL 240, 28,62,127 
127, 127, BR, RE 
40 EVERY 40 GOSUE 1000:DI 
50 CLS 
60 FOR I=1Z TO 20 
70 FOR J=lé TO 27 
80 LOCATE 11, I:PEN V:FRINT CHR$CI4ZD LOC 
ATE 25, L:PRINT CHR$( 143) 
30 LOCATE q 480: PRINT CHR$CI4GS 
100 IF I<x»>12 AND I<x>20 THEN LOCATE J,I:P 
EN Z:PRINT CHR$C142):FEN 1 
710 IF I<>20 AND RND£O.7 THEN LOCATE INT 
(RND$1D+1Zo, LEPRINTO” 
120 NEXT J 
s0 NEXT I 
140 Y=INTCRNDEKZ+15): X=6 
150 k=-2kCRND£O.5)-1 
1£E0 I=0:EI 
1720 LOCATE Y,X:FEN Z: PRINT CHR$CZÃO) 
180 FOR J=0 TO 100:NEXT J 
130 LOCATE Y,X:PRINTO” 
£00 U=X+]:V=y 
210 GOSUE 370 
“20 IF J=0 THEN 290 
230 U=XV=y+k 
240 GOSUE :370 
250 IF J=0 THEN S10 
260 IF I=0 THEN 340 
270 LOCATE Y,X:IPRINT CHR$CZIO) 
“80 GOTO 140 


350 GOTO 230 

370 J=TESTOCV-IDDHIE+E, (CXEB-U)XITE+S) 

380 IF U=24 THEN LOCATE 14,6: PRINT “ACAB 
QU..." SOUND 1,478: SOUND 1,:379: SOUND 1,3 
TS: END 

390 RETURN 

1000 SOUND 123,0: SOUND 1,20, 5: RETURM 
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Obstáculos 


REFERÊNCIAS: 
Dificuldade de programação: bastante difícil. 
Categoria de jogo: jogo de reflexos (para um jogador). 
Dificuldade do jogo: média. 


O JOGO: 

No écran deslocam-se obstáculos para irem chocar com uma pe- 
quena viatura que dispõe da possibilidade de se deslocar para a esquer- 
da ou para a direita para os evitar e que deverá fazê-lo durante tanto 
tempo quanto possível. 

A distância percorrida será exibida permanentemente, e o jogo 
termina quando a viatura choca com a borda do campo de jogo ou 
com um obstáculo. 


O PROGRAMA: 

A linha 80 faz avançar os obstáculos para a viatura do jogador, 
que é impressa graças à linha 70. 

As linhas 80 a 100 fabricam a estrada (as linhas 90 e 100, embora 
idênticas, são ambas indispensáveis, porque o valor de RND não será, 
em princípio, o mesmo nestas duas linhas). 

A linha 120 imprime a pontuação numa janela & 1 protegida con- 
tra o desfilar da estrada. 

A linha 140 permitirá deslocar o veículo. 

As linhas 150 e 160 permitem controlar se há ou não um obstáculo 
e continuar o programa se for caso disso. 

A pontuação é incrementada na linha 160. 

Na linha 170, a utilização de uma tinta transparente permite mos- 
trar a viatura esmagando o obstáculo. 


PARA JOGAR: 

Faz-se correr o programa teclando RUN. 

A estrada e os obstáculos aparecem na base do écran e sobem para 
a viatura. Esta pode deslocar-se com a ajuda das setas de deslocação 
horizontal (teclas —e—). 

O choque com um obstáculo ou com a borda da estrada interrom- 
pe o desenrolar do programa e provoca a apresentação da pontuação. 

No entanto, pode-se sair do programa em qualquer momento, 
usando a tecla ESC duas vezes. 
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EXTENSÕES POSSÍVEIS: 

Será muito fácil melhorar o desenho da viatura, da estrada, dos 
obstáculos. Poder-se-á melhorar o som e a cor, admitir um certo nú- 
mero de acidentes, registar a melhor pontuação (para vários joga- 
dores), eventualmente desenhar várias viaturas, etc. 


10 REM OBSTACULOS 

O RANDOMIZE( TIME) 

O EVERY 5 GOSUB 1000 

40 SYMBOL SFTER 240: SYMBOL 240,93, 127,85 
120,93, 127,93,8: SYMBOL 241,8,20,8,62,42, 
2, 28,54 

50 CLS:WINDOW *0,1,11,1,%25 

EO SG=0,Y=5 

70 LOCATE Y,1:FEN S:PRINT CHR$CZ40) 

0 LOCATE 1,25:PEN TEPRINT CHR$C143);STR 
ING$CE, 32X); CHR$CITAS) 

SO IF RND<0.7 THEN LOCATE INTCRNDX3+2), 2 
S:PEN Z: PRINT CHR$CZAID; 

100 IF RND£0,5 THEN LOCATE INTCRNDX&5+2), 
25: PEN S:PRINT CHR$CZ41)+CHR$CIO) 

120 FEN K1,1+(5 MOD 3): LOCATE K1,15,15:P 
RINT KI, USING “PONTUACAO: ERR” ;S 

30 AB=INKEY$ 

140 Y=Y-CAB=CHR$ECAF 3) AND Y<10)+CAB=CHR$ 
C&Fz) AND Y>1) 

150 C=TESTCCY-IDHIE+E, CEB-I)XKITE+E) 

160 IF C=0 THEN S=S+]:G0TO 70 
164 ra Yo NE PRINT CHR$C2Z); CHR$CID;CH 
BC 24 
Má WHILE TE<2Z00: SOUND 1, TE, II: TE=TE+I WE 


190 END 
1000 SOUND 1,400,%,,,2: RETURN 
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Capturas no espaço 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo de reflexos (um só jogador). 
Dificuldade do jogo: média. 


O JOGO: 

A sua nave espacial navega num perigoso campo de meteoritos e a 
sua missão é apoderar-se da maior quantidade possível de minério de 
urânio, um metal indispensável que só se pode encontrar nesses locais 
particularmente perigosos. 

Você deve manobrar para recolher o urânio, sem se deixar atingir 
por um meteorito. 


O PROGRAMA: 

A linha 70 permite fazer aparecer o minério de urânio. 

A linha 90 fará aparecer os meteoritos e assegura a sua deslocação 
pelo écran. 

As linhas 110 a 130 controlam o desenrolar do jogo (chocou com 
um meteorito ou capturou um bloco de urânio?). 

O choque com um meteorito provoca o fim da partida. 

A sua nave espacial é impressa pela linha 150 e a sua deslocação é 
controlada pela linha 160. 


PARA JOGAR: 

Faz-se correr o programa com RUN e os meteoritos começam a 
subir no écran, assim como os blocos de urânio. 

As teclas de deslocação horizontal (—e-—) serão utilizadas para 
deslocar a sua nave e recolher o urânio, mas o menor choque com um 
meteorito provocará o fim da partida e a apresentação da quantidade 
de urânio capturado. 

Poder-se-á também parar o jogo em qualquer momento premindo 
ESC duas vezes. 


EXTENSÕES POSSÍVEIS: 

Pode-se tornar o jogo cada vez mais difícil aumentando progressi- 
vamente o número de meteoritos ou, ainda, minutando a duração da 
partida. 

Pode-se também prever uma exposição permanente da pontuação, 
introduzir uma segunda nave espacial manobrada por uma potência es- 
trangeira e que procura também apoderar-se do urânio... 
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10 REM CAFTURAS NO ESFACO 

20 RANDOMIZECTIME) 

30 INK 1,0 

40 CLS is SYMEOL AFTER 240: SYMBOL 240,0,8,8 

50 X 

BO & 

70 LOCATE 5, 25:FEN Z!PRINT ok; 

BO S=INTCI+RNDK3S) 

90 IF RND£O.7 THEN LOCATE 8, 2Z5:PEN S:FRI 

NT "k” PRINT CHR$CIO) 

100 FOR 1=1 TO IO:;NEXT 1 

VIO C=TESTCCX-1)X16+B,(25-]2)416+8) 

1Z0 IF C=3 THEN PAFER S/PEN T:LOCATE 11, 

24: PRINT USING "PONTUACAO OBTIDA: pHH”;Z 

INHILE TEXZ00: INK O, TE MOD 26: SOUND 1, TE 

| Ni TE=TE+] WEND: PAPER 0: END 

130 IF C=2 THEN Z=2+1 SOUND 1,478:SOUND 

1,426 !SOUND 1,379 

140 LOCATE X-1, 11 PRINT STRING$C3,32 

150 PEN T:LOCATE X=1,IZ!PRINT ” “+CHRSCZ 
EU ” 

1E0 AS=INKEY$ 

170 X=X-CAS=CHR$CBFZ) AND X<35)+CAS=CHR$ 

CBFZ) AND X>2) 

180 GOTO 60 
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Anomalia 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: solitário. 
Dificuldade do jogo: média. 


O JOGO: 

Baseia-se essencialmente numa boa capacidade de observação. 
Duas grelhas, de 25 casas cada, são desenhadas no écran. Símbolos 
identicos são apresentados nas duas grelhas, mas um deles foi modifi- 
cado na grelha da direita. O jogo consiste em descobrir qual, fazendo 
entrar as suas coordenadas pela ordem linha-coluna. 


O PROGRAMA: 

O ciclo I (50-80) imprime os números de referência das grelhas e 
pontos com uma tinta desmaiada. 

O ciclo principal I (100-160) imprime os símbolos das duas gre- 
lhas, numa ordem diferente. 

A linha 110 escolhe o carácter a imprimir. 

A rotina 1000-1040 ocupa-se da impressão numa posição livre 
(a rotina é chamada duas vezes, uma para cada grelha). Aquando da 
tiragem da letra modificada, a linha 1030 assegura-se de que ela não é 
idêntica àquela que substitui. A matriz B contém o valor de cada letra 
da grelha da direita. ; 

As linhas 170 e 180 mudam um dos caracteres, de modo aleatório. 

As coordenadas do ponto testado são feitas entrar nas linhas 190 e 
200, e o controlo é efectuado pela linha 210. 

A linha 220 ocupa-se da apresentação do resultado. 


PARA JOGAR: 

Depois de se fazer correr o programa com a instrução RUN 
obtém-se a apresentação das duas grelhas. Dever-se-á então procurar, 
por comparação, qual o carácter que foi modificado (na grelha da di- 
reita). 

Faz-se então entrar o seu número de linha, seguido de ENTER, e 
o número de coluna, seguido de ENTER. 

O programa responderá então BRAVO!... ou PERDEU! ... 
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EXTENSÕES POSSÍVEIS: 

Será possível utilizar símbolos gráficos de diversas cores, o que 
poderá simplificar a pesquisa. 

Pode-se também pensar em utilizar desenhos mais sofisticados, 
melhorar o controlo do resultado, admitir como boa resposta a da gre- 
lha da direita ou a da esquerda, introduzir uma minutagem, etc. 


10 REM ANOMALIA 
20 INK TV, TUINK Z, TE INK 3,1: RANDOMIZECTIM 


30 No Iz=1 TO 5:FO$=POS+CHR$C144)+" "NE 


40 T=B:DIM E(5,5):CLS 
SO FOR I=] TO 5 

60 LOCATE 2ZK1+1, 1: PRINT IILOCATE 1,2X1+1 
PRINTOI 

70 LOCATE ZKI+19, VEPRINT IILOCATE 19, 2X1 
+J:PRINT I 

75 LOCATE 4, 2X1+1 PRINT FOS:LOCATE 22, 2% 
I+1: PRINT POS$ 

B0 NEXT 1 

100 FOR I=] TO 22 

No D=INTCZERRND+1) 

TZO L=0,5= 

1350 GOSUB 1000 


140 L=18 

150 GOSUE 1000 

160 NEXT 1 

170 S=0 

180 GOSUE 1000: INK 1, 24: INK 2,6: INK 3,9 
190 PEN IILOCATE 1, JE: INPUT “LINHA. ..... 

£00 PRINT: INFUT “COLUNA ..... EB 

210 LOCATE 1,20: IF EcT,1I)=D THEN PRINT” 

BRAVO!...” ELSE PRINT "PERDEU!...”: WHILE 
TE<X 200: SOUND 1, TE, 1: TE=TE+] VEND 


20 PRINTIPRINT "A LETRA A DESCOBRIR ERA 
" ;CHRECES+D) : END 

1000 U=3+2EINTCRNDET): V=4+L+2KINT(RNDXS) 
IO10 C=TESTCCV-IDHIE+B, (C25-UDKTE+S) 

1020 IF Cx>1 AND SX»>0 THEN 1000 

1030 IF S=0 THEN IF ECCV-20)/2,(U-1)/2)= 

D THEN 1000 

1040 IF LX>0 THEN BCCV-20)/2, CU-19/2)3=D 
1050 LOCATE V,UIPEN Z-CL420): PRINT CHR$C 

D+64) 

1060 RETURN 
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Vários em um 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo de reflexão (dois jogadores). 
Dificuldade do jogo: variável, consoante a utilização. 


O JOGO: 

Na verdade são possíveis vários jogos com este programa, que vai 
comportar-se como um lápis electrónico, que lhe permitirá inscrever 
simbolos de cor seja onde for da sua folha-écran de televisão. Poder- 
-se-á, por exemplo, utilizá-lo para uma variante mais vasta do jogo do 
galo em que ganha o primeiro que realiza o alinhamento de cinco peças 
identicas, ou para outro em que se realiza o enquadramento das peças 
adversas, ou para qualquer outro jogo, segundo a sua imaginação. 


O PROGRAMA: 

O campo de jogo é delimitado por um quadro construído pela li- 
nha 30. 

A mudança de jogador é efectuada pela linha 50. 

O jogador que vai jogar vê o símbolo que escolheu (um quadrado 
de cor) colocar-se no limite do quadro (linha 70). 

As linhas 100 e 110 permitem que os dois jogadores desloquem o 
seu símbolo pelo campo de jogo. 

As linhas 130 e 140 controlam se a deslocação é possível (casa livre 
e não ultrapassagem dos limites). 

A linha 180 permite escrever numa casa livre. 


PARA JOGAR: 

A ordem RUN permite a apresentação dos limites do campo de 
jogo e do número do jogador, assim como dos símbolos corresponden- 
tes, que deverão ser deslocados pelo écran com a ajuda das quatro te- 
clas de direcção (1,1,—,—). 

Não é possível saltar para uma casa já ocupada, e será necessário 
premir a tecla COPY para inscrever o seu próprio símbolo numa casa 
disponível. 

Uma vez isso feito, o simbolo do segundo jogador aparece na 
coluna da esquerda, mais ou menos ao meio, e o jogador procederá da 
mesma maneira que o seu adversário. 

Para sair do programa basta premir ESC duas vezes. 
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EXTENSÕES POSSÍVEIS: 

Poder-se-á utilizar todo o écran como campo de jogo e realizar 
controlos em função dos diferentes jogos que se pretenda praticar: 
controlo de alinhamentos de cinco peças, controlo do número de peças 
capturadas, etc. 


10 REM VARIOS EM UM 

20 MODE 1 

30 MOVE E, ES: DRAWR O, 24H16, 1: DRAWR 25416, 
O, 1:DRAWR O,-2Z4K1E, ILDRAWR -25%H16,0,1 

MO J=0 

BO J=ABSCJ-1) 

BO X=13S:Y=1 

70 dd Yo XIFEN 2-CJ=1) PRINT CHR$CZS 
2%. 

80 AS=INKEY$S: IF A$="" THEN 80 

90 A=X:B=Y 

100 X=X-CAB=CHR$CHF 1) AND Xxz4)+CAB=CHR$ 
CaF0O) AND Xe) 

WO Y=yY-CAS=CHR$ECAF 7) AND Ye2z5)+CAS=CHR$ 
Ccar2zo) AND Yoz) 

120 LOCATE B,ALPRINTO” + 

130 C=TESTCCY-IDRIE+B, (2 
140 IF Care AND Cx2>3 AND 
150 X=A: Y=E 

160 CA=INKEYCS9 

170 IF CAS>O OR Y=2 THEN 70 

180 LOCATE Y,X:FEN 2-CJ=1D: PRINT CHR$CZS 
I- 28) ; 

190 IF J=0 THEN SOUND 1,:200,10 ELSE SOUN 
D 100,10 

200 GOTO 50 
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Percurso do cavalo 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo de reflexão. 
Dificuldade do jogo: difícil. 


O JOGO: 

Este jogo é aqui apresentado como sendo totalmente de acaso, 
mas na realidade provém de um problema bastante difícil de resolver: 
como deslocar o cavalo num tabuleiro de xadrez de modo que ele passe 
uma vez, e apenas uma vez, por cada uma das 64 casas do tabuleiro. 

O cavalo desloca-se segundo as regras comummente correntes no 
xadrez e a sua posição de partida é definida pelo jogador; em contra- 
partida, as suas deslocações são feitas ao acaso. Conseguirá percorrer 
as 64 casas? 


O PROGRAMA: 

A linha 60 define as diversas deslocações possíveis, em duas variá- 
veis alfanuméricas, A$ e B$; o ciclo encaixado I (70-100) desenha o 
campo de jogo. 

Dá-se entrada às coordenadas da casa de partida (primeiro a li- 
nha, depois a coluna) nas linhas 110 e 120. 

A linha 140 imprime o número da jogada. 

A linha 150 permite a tiragem ao acaso de uma deslocação do 
cavalo. 

O ciclo G (160-210) verifica se a deslocação é possível; se não for, 
tenta todas as outras (sempre na mesma ordem). 

As linhas 170 e 180 efectuam a deslocação. 

A linha 190 vela para que se não saia do campo de jogo. 

A linha 200 envia para a linha 230 se a jogada é possível. 

A linha 220 faz a gestão do fim de partida (cavalo bloqueado) e 
imprime a pontuação. 

As linhas 230, 240 e 250 realizam a jogada e incrementam a pon- 
tuação. 


PARA JOGAR: 

Faz-se correr o programa com a ordem RUN. O campo de jogo é 
impresso no écran; escolhe-se então a posição de partida teclando pri- 
meiro um número de linha (entre 1 e 8), seguido de ENTER, e depois 
um número de coluna, seguido de ENTER. O jogo começa imediata- 
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mente e desenrola-se de modo completamente automático até que o ca- 
valo fique bloqueado. Pode-se, evidentemente, parar em qualquer mo- 
mento teclando ESC duas vezes. 


EXTENSÕES POSSÍVEIS: 

Podem-se imaginar numerosas variantes sobre este tema, nem que 
seja começando por fazer variar o tamanho do tabuleiro; pode-se tam- 
bém melhorar consideravelmente o grafismo. Mas o mais interessante 
é conseguir definir um algoritmo que dê a ou as soluções do problema 
inicial... 


10 REM PERCURSO DO CAVALO 

24 RANDOMIZECTIME) 

0 INK O, 9:BORDER 9 

AQ CLS 

BO Em Tao 

O Ab=" BEETLE”  Bó="EBFZL” rAd+V DE Ab= 
AS+AS 

70 FOR 1I=1 TO 
EO LOCATE SHI 
30 LOCATE 1,% 
100 NEXT 1 
110 LOCATE 1,19: INFUT “LINHA DE FARTIDA? 
120 PRINT: INPUT “COLUNA DE FARTIDA?",J 
130 IF S»9 THEN S=0:T=7+] 

140 LOCATE SkJ+3, 2ZKI+1 PAPER Z:PEN S.PRI 
NT RIGHTECSTRECSP, ID. IF Tx>O0 THEN LOCATE 
SAJ+Z, 2RI+I PRINT RIGHTECSTRÉECTI,1) 

150 E=INTCRNDE&S+]) 

160 FOR G=] TO E+g 


E) 
+22, 1:PRINT II 
*I+TLPRINT 1,” 


170 A=I+VALCMID$SCAS,G,122-4 

180 E=J+VALCMID$ECES,6G,129-4 

1980 IF AX1 OR Ex] OR A>25 OR E»S THEN 210 
200 IF TESTOCCSRErZI- IEEE, CEB-C2RA+rTO 
JRTE+rEZI=0 THEN 230 

210 NEXT G 

220 PAPER 1:PEN SLOCATE 1, 23:FRINT O ºTOT 


AL 12; TKIO+S SOUND 1,475: SOUND 1, 42E:5S0U 
ND 1,279. FAFER O:FEN 1:END 

230 [=A: J=B 

240 S=S+] PRINT CHR$C7); 

250 GOTO 1:30 
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«Othello» 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo de reflexão (dois jogadores). 
Dificuldade do jogo: difícil. 


O JOGO: 

Tendo-se tornado um grande clássico dos jogos para microcompu- 
tador, o jogo «Othello» ou «Reversi» só tem a ganhar com a 
visualização, mesmo se (como acontece aqui) é jogado por dois joga- 
dores; efectivamente, como o jogo consiste no derrube dos peões do 
adversário, isto pode tornar-se monótono a longo prazo, sobretudo 
se você é um jogador assíduo. O princípio é que o jogador que tem 
os X deve, para poder jogar, conseguir enquadrar uma ou várias peças 
do seu adversário; se conseguir, então os O serão derrubados e tornar- 
-se-ão X (o derrube pode ser feito horizontalmente, verticalmente ou 
segundo as diagonais). 

O jogador que tem os O procederá do mesmo modo, e isto prosse- 
gue até que o tabuleiro esteja cheio ou que ninguém possa mais jogar 
(se um jogador não pode derrubar peões, deve passar a sua vez). 


O PROGRAMA: 

Os ciclos encaixados P (50-120) e Q (70-110) desenham o campo 
de jogo e a linha 140 imprime um X ou um O, conforme o jogador que 
comece. 

O ciclo P (200-320) controla a validade da jogada (a casa está li- 
vre: linhas 300 e 310), utilizando uma parte de programa que se encon- 
tra nas linhas 360 a 410 (um ou vários inimigos tomados na linha 360 e 
eventual derrube autorizado pela linha 380: volta a fazer-se um varri- 
mento em todas as direcções, se o enquadramento se revelou possível). 

A linha 200 define as oito direcções de exploração. 

As linhas 140 e 250 calculam as deslocações a efectuar para explo- 
rar essas oito direcções. 

A linha 230 realiza as deslocações. 

A linha 340 assegura a mudança de jogador, se houve derrube 
(controlado na linha 330). 


PARA JOGAR: 

Depois de se ter feito RUN, os jogadores farão entrar as coorde- 
nadas, cada um na sua vez (linha, ENTER, depois coluna, ENTER), 
da casa para onde desejam jogar; se uma jogada não é aceite, faz-se 
entrar O como primeira coordenada para a mudança de jogador. 
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EXTENSÕES POSSÍVEIS: 

Antes de mais, evidentemente, melhorar a apresentação com 
cores, uma grelha mais arejada. 

Poder-se-á também imaginar um jogo-máquina para o AMS- 
TRAD. 

Depois de se ter feito correr o programa com RUN, convém fazer 
entrar a dimensão da grelha (4, ENTER, ou 6, ou 8...). 


10 REM “OTHELLO” 

15 WINDOW &1,25,40,8,18 

20 INPUT “DIMENSAO DA GRELHA :“,A 

30 IF A MOD 2420 OR Ar& OR Ac THEN 20 


50 FOR F=| TO A 
60 LOCATE Z&F+1, PRINT RIGHTSCSTR$CED,] 


70 FOR Q=1 TO A 

Bo LOCATE V,% cRP+1 PRINT RIGHT$SCSTR$CED,] 
JALOCATE pd 2RP+) PRINT CHR$CIT44) 

90 IF Q=A/% a AND F=A/2 THEN LOCATE Z+HQ- 
| 24P+T IPEN 2 2: PRINT CHR$CZ31D,” PAS PEN 3 
PRINT CHR$CZ03): FEN 1 

100 IF Q=A/2+1] AND F=A/2+] THEN LOCATE 2 


AQ-1, Z*F+ 1: PEN S:PRINT CHR$C2Z03))” PILPE 
N Z:FPRINT CHR$C2312:FEN 1 

Wo NEXT q 

Nato NEXT [é 


140 CLS FISLOCATE E1,2,3:PEN Ei, Z-(k= 

PRINT &1," JOGADOR 2" CHR$C23]-KEZB) | SOUND 
1, 200+200%K,10 

160 PRINT 41: INFUT RI,PLINHA 1"S4U 

1720 IF U=0 THEN 340 

180 PRINT RI: INPUT K1,ºCOLUNA 1º4V 

190 Hz] 

£00 FOR P=] TO & 

&! u s S=0 

230 T=2AU+ 1 R=2kV+] 

MO F=(Ph3 AND. PL7o-(Pas3 OR F>7) 

280 G=(F>1 AND Fa5)-CFPo>=63 

£EO G=-203k(5=])-23]K(5=2)-]44k(S=0) 

270 IF S=0 THEN 290 

220 LOCATE R,T:PEN 2-ck=]): PRINT CHR$CQ) 

290 T=T+2HF !R=R+ZHG 

300 C=TESTCCR-IDRIE+S, (25-T)KTE+rB) 

S10 IF C=% OR C=% THEN 360 


230 


seo NEXT É 

20 IF Hx20 THEN 140 

40 K=ABSCk=1) 

250 GOTO 140 

Ee (C=2 AND k=1) OR (C=3 AND K=0) TH 
370 IF S%20 THEN LOCATE R,T:PEN g-Ck=15: 
PRINT CHR$CG) 

280 IF W=]1 AND ((C=% AND k=1) DR (C=3 AN 
D E=0) THEN 290 

390 IF W=0 OR S4>0 THEN 20 

400 S=]-Ck=0) 

410 H=-HECE=0) 

420 GOTO 220 
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Damas 


REFERÊNCIAS: 
Dificuldade de programação: muito difícil. 
Categoria de jogo: jogo de reflexão (dois jogadores). 
Dificuldade do jogo: difícil. 


O JOGO: 

É o jogo clássico de damas, mas um tanto incompleto porque não 
prevê a possibilidade de fazer dama. As regras do jogo são as clássicas, 
mas os controlos foram um pouco simplificados. Os movimentos das 
peças são feitos entrar numa única manobra (posição de partida e di- 
recção de deslocação) e a tomada de pedras, se for possível, é realizada 
automaticamente. 

Com a mudança de jogador é realizada em cada jogada, será ne- 
cessário eventualmente premir O para poder voltar a jogar, se houver 
salto ou se a jogada não era possível. 


O PROGRAMA: 

Os ciclos I (80-170) e J (90-160) desenham o tabuleiro e definem as 
posições iniciais das pedras brancas e das pedras pretas. As posições 
estão um quadro R(X,Y) e a cor num outro quadro, C(X,Y). 

A impressão das pedras propriamente dita é efectuada pelos ciclos 
encaixados J (190-250) e I (200-240). 

A linha 270 indica qual jogador tem a vez. 

A jogada é feita entrar na linha 270. 

A linha 280 realiza a mudança de jogador (tecleia-se 0). 

A linha 300 verifica se a deslocação é possível. 

A linha 330 trata o caso de uma deslocação e a linha 340 o caso de 
um salto. 

A linha 380 assegura a mudança de jogador. 


PARA JOGAR: 

Depois de se fazer correr o programa com RUN, o tabuleiro, com 
as suas pedras, é desenhado no écran e aparece um círculo de cor por 
baixo, para indicar a que jogador pertence a vez de jogar. 

Joga-se indicando, com uma palavra de três letras (palavra que 
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pode começar por zero), a linha e a coluna da peça a deslocar e a direc- 
ção da deslocação (codificada de 1 a 4), segundo a convenção: 


4 1 


3 2 


Por exemplo, 9DI significa que a pedra situada na linha 9, coluna 
D, se desloca na direcção 1. 

Do mesmo modo, 0G3 significará pedra negra, coluna G, direc- 
ção 3. 

Como a mudança de jogador é efectuada automaticamente, será 
necessário teclar O para voltar a jogar se a jogada for recusada ou se 
foi «comida» uma pedra. 

O programa não controla a chegada à posição de dama e não 
proíbe a deslocação para trás. 


EXTENSÕES POSSÍVEIS: 

Será bastante fácil começar por melhorar os controlos (mudança 
de jogador, jogada para trás que não corresponda à tomada de uma 
peça, saída do tabuleiro. Poder-se-á encarar a criação de damas, sua 
deslocação, e eventualmente escrever um programa que permita ao 
AMSTRAD juntar-se às suas apaixonantes partidas com possibilidades 
de vencer. 


10 REM DAMAS 

£0 DIM RO1O0,10):DIM CC10,10): SYMBOL AFTE 
R 240. SYMBOL 240,0,0,0,0,0,0, O, O: SYMBOL 
241,0, EO, 195, 196, 189, 128, E6, 60 

RAD) AS=STRINGSCS, 140) 

ao Eg=STRING$ÊCE, 143) 
O CE=STRINGÊC3, 13 
A 

Ea a a e AB CDlEEFZAGÃJAÃHMÃI 


30 FOR 1I=1 TO 10 

90 FOR J=1 TO 10 

100 IF (I+7) MOD 2=0 THEN 120 

Wo LOCATE PRT+], 2H: PRINT AS:PRINT 1-1: 
LOCATE S$EJ+, 2KI+] PRINT ESILOCATE 3kJ+] 
peRI+Z PRINT C$ 

120 Rel, J)=0 

tzo IF CI+J) MOD 2=1 THEN 160 


wo 
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140 IF JX5 THEN RCL, Jo=1:CcI,JD)=2 

150 IF J>6 THEN RCL, D=1:C(1,J)=3 

160 NEXT J 

170 NEXT I 

1E0 H=] 

130 FOR J=1 TO 10 

OO FOR I=1 TO 0 

210 TF (I+7) MOD 2<20 THEN 240 

££O X=3k]+2 Y=2kI+] 

230 LOCATE X,Y:PEN CCL, Jo): PRINT CHR$ECZMO 

+RCI,J)) 

240 NEXT 1 

:5O NEXT J 

260 LOCATE 1,25: PRINT CHR$CZOD, 

270 LOCATE 1, 23: PEN e-(H=1 3): PRINT ” JOGAD 
Vo INPUT” — SUA JOGADA? o 


OR "SCHR$CZAS 
D 


& 
220 IF D$="0" THEN H=AESCH-19:GOTO EO 
“940 GOSUE 400 

300 IF RCL,C)=0 OR (CCL, C)=2 AND H=1)3 OR 
(CCL, C)=3 AND H=0) THEN 260 

310 T=(1 AND c(D=1 OR D=2)3)-€1 AND (D=4 O 
R D=3)) 

320 S=(1 AND CD=3 OR D=2))-C1 AND (D=1 0 
R D=4)) 

20 IF RCL+S,C+T)=0 THEN ROL, CI=0:R(L+S, 
C+To=1:CCL+S,C+T)=2-CH=1):GOTO 330 
240 IF C(L+S,C+To=2-(CH=0) AND RCL+S, C+T) 
=] AND RCL+2KS, C+zkTo=0 THEN 360 
250 GOTO ZE0 
S60 REL, CI=0:RCL+S, C+TI=O ROL+HZES, CHZKTO 
m=IiC(L+2RS, C+2kT)=2-(H=1) 
370 GOTO 190 
20 H=ABSCH-]) 
280 GOTO 190 
400 L=VALCLEFT$SCDS,1))+1:C=ASCCMID$CDS, 2 
1123)-64: D=VALCRIGHT$CD$, 15) 
410 RETURN 
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Quatro a quatro 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo de reflexão (um ou dois jogadores). 
Dificuldade do jogo: difícil. 


O JOGO: 

Poderá ser jogado por um ou vários jogadores. Nos dois casos, o 
objectivo é conseguir trocar os peões X com os peões O; se jogado 
como solitário, cada mudança deverá ser realizada com o mínimo de 
jogadas possível. 

Os peões são deslocados alternadamente, respeitando as regras de 
deslocação do cavalo no xadrez; não há tomada de pedras e não se po- 
de passar de vez sem jogar. 


O PROGRAMA: 

A variável alfanumérica A$, na linha 40, contém a tabela das jo- 
gadas possíveis (salto do cavalo). 

O ciclo I (60-100) desenha o campo de jogo e as posições de par- 
tida. 

A linha 120 permite imprimir X ou O, consoante a vez do jo- 
gador. 

A linha 150 permite a impressão do cursor a piscar, que indica em 
que casa se encontra. 

As linhas 180 e 190 permitem a deslocação do cursor. 

A linha 200 verifica se foi premida uma tecla de 1 a 8, dando a di- 
recção da deslocação. 

A linha 210 reimprime a figura que estava sob o cursor. A linha 
240 transforma em número o símbolo numérico teclado. A linha 230 
realiza o controlo de início de partida. 

As linhas 250 e 260 efectuam a deslocação. A linha 240 realiza o 
controlo da chegada. O resultado é impresso pela linha 300, a mudan- 
ça de jogador é realizada pela linha 310 e um «.» é impresso no local 
de partida. A rotina 330-340 é utilizada para os diversos controlos. 


PARA JOGAR: 

Faz-se correr o programa com RUN. O campo de jogo é impresso 
no écran, assim como o símbolo que permite identificar qual o jogador 
que está na vez de jogar. O jogador pode escolher o peão que deseja 
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deslocar manobrando o cursor a piscar graças às teclas de deslocação 


do 


cursor. 
Para deslocar um peão basta, quando o cursor está sobre esse 


peão, teclar a direcção da deslocação, de acordo com o código: 


A jogada será recusada se a casa de partida não está conforme ou 


se a casa de chegada está ocupada. Caso contrário, a jogada será reali- 
zada e a vez passa ao outro jogador, que desloca o cursor a piscar para 
o posicionar sobre um dos peões, e joga do mesmo modo. 


Ganha o jogador que conseguir ser o primeiro a levar todos os 


seus peões até às casas inicialmente ocupadas pelo adversário. Pode-se 
interromper a partida em qualquer momento teclando ESC duas vezes. 


EXTENSÕES POSSÍVEIS: 


Pode-se melhorar os controlos, prever um teste de fim, utilizar um 


campo de jogo diferente; poder-se-á também pensar na escrita de um 
programa que permita ao seu AMSTRAD participar no jogo com boas 
hipóteses de o ganhar. 


10 


3! q 
&( 
HR 
Bo 
T 
30 
NT 


REM QUATRO A QUATRO 
INK 0,15: BORDER 15 
MODE O 
H=1,A$="56EBSLLZBE” 
LOCATE S,2:PRINT IT 234 5” 

FOR I=1 TO 5 

LOCATE PSI PRINT RIGHTECSTR$CTO,] 
ILOCATE 5, SK1+3:FRINT CHR$C144)+” "+CHR 
Táda+r” P+CHRECIAAD+O P+CHR$CTAAD+ PAC 
ECI44) 

IF Ix3 THEN FEN Z:LOCATE 5, 3XI+3:PRIN 
CHR$CEIT)G” ri CHR$C EST) :PEN | 

IF 1% THEN FEN SLOCATE VI, SKI+ZIPRI 
CHR$CZOD »;CHR$C203): PEN 


100 NEXT 1 


1 
té 


1€ 


O X=14Y=] 
O LOCATE 5, 22: FEN 2+H:FPRINT "JOGADOR * 
HR$C2zl-zskHo 
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TZO GORUE 30 

140 Tg 

150 LOCATE G+HEEX, SERV PRINT”?! 

TEO AzXE=Y 

170 R$=INKEY$ 

180 X=X-CR$=CHR$ECAFE) AND X<5)+CR$E=CHREC 
Fiz) AND X2>1) 

130 Y=Y-CR$=CHR$ECAF IT) AND YL5)+CR$=CHRSC 
&F0) AND Y2>17) 

200 IF R$="9" AND R$>"0” THEN Z30 

210 LOCATE F+2KA, 3+3KBLPEN JF J=] THEN 
dani CHR$( 144) ELSE FRINT CHR$CEZI-ZER 
í = 

220 GOTO 120 

o TF C(I=15 OR CI=2 AND H=15 OR (CIz=3 AN 
H=0) THEN GOTO 210 

40 E=VALÇR$) 

EO S=Yy Y=Y+VALCMIDSCAS,K,12)-4 

BO T=X: X=X+VALCMIDECAS, Eh, ]))-4 

7O IF XxX1 OR X>5 OR y<] OR Y>5 THEN Y=S 
1X=T:A=TLB=S: GOTO Z10 

280 GOSUE 230 

290 IF J42>1 THEN X=-1 : J=2+H: GOTO 270 

300 LOCATE 3+2EX, BAV+3: PEN C2+HI PRINT C 
HR$CE 3 T-26KH) 

S10 H=ABSCH-159: =] 

3220 GOTO 210 

380 J=TEST (CB+HZRX-IDETZ+HIE, CLE-C3+HBRY DO) 
KIE+E) 

340 RETURN 


237 


Xadrez 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo de reflexão (dois jogadores). 
Dificuldade do jogo: difícil. 


O JOGO: 

O programa propõe apenas a dois jogadores a disputa de uma 
partida servindo-se do écran do televisor como tabuleiro de jogo. Não 
há controlo de validade das jogadas, mas unicamente gestão da posi- 
ção das peças no tabuleiro. As pedras são desenhadas com a ajuda da 
instrução SYMBOL. A cor permite distinguir cada um dos campos. 


O PROGRAMA: 

As linhas 110 a 200 desenham o tabuleiro. As linhas 150, 160, 170, 
180, 210 e 220 definem as condições iniciais, com a ajuda de dois qua- 
dros: R(I,J) para os códigos das peças e C(I,J) para a cor. 

Os ciclos encaixados I (250-280) e J (240-290) desenham as peças. 

A linha 320 permite fazer entrar a linha e a coluna de partida, com 
controlo na linha 330. 

A linha 360 permite fazer entrar a coluna e a linha de chegada. 

A linha 380 toma nota da nova posição. 

A linha 390 assegura a mudança de jogador. Para parar basta te- 
clar ESC duas vezes. 


PARA JOGAR: 

Faz-se correr o programa com RUN. 

O tabuleiro de xadrez é desenhado, depois as peças e por fim um 
texto de cor indica qual o jogador que tem a vez de jogar; faz-se entrar 
a coluna e a linha de partida, sob a forma E7, por exemplo, e dá-se a 
coluna e a linha de chegada. A deslocação é então efectuada, e é a vez 
do outro jogador. 

Para parar basta teclar ESC duas vezes. 


EXTENSÕES POSSÍVEIS: 

Poder-se-á procurar realizar um grafismo mais preciso, introduzir 
o controlo do movimento das peças. E, por que não?, escrever um pro- 
grama que permita aa AMSTRAD comportar-se como opositor à al- 
tura. Coragem! 
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10 REM XADREZ 


o DIM R(&,8):DIM Cc&,E): SYMBOL AFTER Z4 
30 SYMEDL Z40,0,16,40,68, 108, BE, 124, 0:SY 
MEBOL 241,0, 16,56,16,56,6E8,56,0 

Aly SYMBOL e) 20,84, 124,5E,5E, 124, 124,0:S 
YMEOL RR di 140, 16, 108,124, 124,0 

50 SYMBOL 244, 0, 16,56 ,56, 16, 124, O: SYME 
OL Z245,0,16, Sé 120,24, 56, 124,0: SYMBOL X4 
6,0,0,0, O, 0,0,0,0 

EO Ab=5 TRINGSC 3, 140) 

70 B$=STRINGÊCE, 143) 

BO Cê= STRINGSCS, 131) 

30 CLS: INK , 9: INK 3,0 

100 PRINT o! AEB CD EF ÃÕõGÃMH*! 
Wo FOR I=1 TO & 

IZo FOR J=1 TO & 

130 IF CI+75 MOD 2=0 THEN 150 

140 LOCATE 3kJ, 2X: PRINT AS:PRINT CHR$C4 
B+IJ!LOCATE SAT, ZK1+1 PRINT B$; LOCATE & 
RJ, 2KI+2: PRINT C$ 

150 IF I=g OR Ll=7 THEN RCLI,J)=4 

160 IF IXx>2 AND I4>7 THEN Rel, J)=6 

170 CCI, J)=E 

1580 IF 1=7 OR 1I=& THEN CCL, Jo=3 


190 NEXT J 
200 NEXT 1 


Io ROL ID=ERCT, 2)=B:;RC 1, 3)=0: RC 1, 49=3; 
RC, 5B)=1:RC1,6)=0:RC1,7)=5:.RC1,8)=2 

220 FOR 1=1 TO S:RCB, ID=RCI, TO. NEXT 1 
230 H=0 

240 FOR J=1 TO & 

2:50 FOR 1=] TO & 


CEO X=1+3A] Y=2kI+] 
270 LOCATE X,Y:FEN Cel, Jo):PAPER CI+J) MO 
D 2: FRINT CHR$ECZMO+RCI, JD) 
220 NEXT 1 
290 NEXT 
300 WINDOW H1,28,40,9,18 
310 CLS RISFEN e, 2+H! PRINT *1,” JOGADOR 
"IF H=0 THEN FRINT $1,ºAZUL” ELSE PRI 
NT &1,"NEGRO” 
320 FRINT 87, "PARTIDA (CLIP LOCATE 81,7 
(SU INPUT 41,02, 0$ 
230 GOSUE 410 

340 IF RCL,C)=6 OR CCL, Co=i-H THEN 310 
350 T= ReL, CI: s=c( L,Co: CL, C)=6 
360 LOCATE ARA PRINT RI, "CHEGADA (CL 
PPILOCATE &1,7,8: INFUT H1,"",D$ 
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400 GOTO 240 

OQ L=VALCRIGHTECDS nam e 

410 L=VALCRIGHTSCDS, 1) C=ASCCLEFTS(DS, | 
420 RETURN 
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Muro de tijolos 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: jogo de reflexos (um jogador). 
Dificuldade do jogo: difícil. 


O JOGO: 

Trata-se de um jogo que se pode apresentar como um grande clás- 
sico dos jogos de arcada para microcomputadores. 

É aqui apresentado numa versão simplificada, mas oferece mesmo 
assim boas performances: afixação da pontuação no fim da partida, 
ressaltos aleatórios, etc. 

A regra é muito elementar: você dispõe de uma raqueta que pode 
ser deslocada horizontalmente para devolver uma bola que vai demolir 
os tijolos desenhados na parte de cima do écran. 

O seu problema é demolir a maior parte possível do muro, sem fa- 
lhar a bola, o que provocará o fim da partida e a apresentação da pon- 
tuação. 


O PROGRAMA: 

O ciclo I (50-80) desenha o campo de jogo e os tijolos são postos 
no lugar pelos ciclos encaixados I (90-130) e J (100-120). 

A linha 200 desenha a raqueta, cuja posição é controlada pela li- 
nha 180. 

As linhas 250 a 270 verificam se foram atingidos o muro, os tijo- 
los ou a raqueta. 

Os ressaltos são gerados em consequência, com eventuais saltos 
aleatórios, pelas linhas 250 e 270. 

A linha 210 apresenta permanentemente a pontuação. 


PARA JOGAR: 

O programa será posto a trabalhar com a instrução RUN, o que 
provoca a impressão do campo de jogo e depois, muito rapidamente, o 
envio da bola. O jogador deverá então tentar deslocar a sua raqueta 
com a ajuda das teclas de deslocação horizontal (—e—). 

Se, em qualquer momento, a bola não tocar na raqueta, o jogo 
termina. 

Pode-se também terminar quando quisermos, teclando ESC duas 
vezes. 
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EXTENSÕES POSSÍVEIS: 

Pode-se pensar em ampliar o campo de jogo, aumentar o número 
de tijolos, prever várias bolas, introduzir efeitos sonoros. 

Pode-se também, com base em jogos de arcada, introduzir peque- 
nos trabalhadores que virão reconstruir o muro de tijolos, à medida 
que você o for demolindo. 


10 REM MURO DE TIJOLOS 

20 DEF FN INCX)=16%ROUNDOX/ 169 

so RANDOMIZECTIME) 

40 CLSIPEN 1 AB=CHR$CIAZO  BS=CHR$CZIS) 

50 FOR I=1 TO 18 

60 LOCATE 10+L,1:PRINT A$ 

70 LOCATE 11, I++: PRINT ASBILOCATE 25, L+1: 

PRINT AS 

Bo NEXT T 

30 FOR I=1 TO 6 
100 FOR J=11 TO 
No LOCATE J+i, 
NT E 

120 NEXT J 

130 NEXT 1 

140 TAG 

150 ORIGIN VIKIE, ZHIE- E I=0: J=EH16 K=161 
H=1E:Y=EXI1E 

160 A=1:B=] 

170 AS=INKEY$ 

150 Y=Y-1EXCAS=CHR$CBF3) AND YSISKIG)+IE 
ECAg=CHR$CBF 2) AND Y2-4K16) 

180 IF Ee THEN MOVE IJ, II:PRINTO” “jiT= 
O!I=Ã!J= 

200 MOVE Vo IGLPRINT O” "+STRING$CS, 143)+ 


o “LOCATE Ri, TV, ZZ: PRINT 81," PONTUAÇÃO: * 


20 Az1+H:B=J+k: LA=EN INCAS: IB=FN INCB): 
TSFN INCI2:1J=FN INCIO 

O IF II<O THEN TE=O/WHILE TE<200: SOUND 
TE, LI: TE=TE+] :VEND: END 

O C=TEST(CLE+S, LA+G) 

O IF C=1 THEN H=H+Z2kKHA&CIA»EXITE OR TAL 
DD) IK=K+ZEKACIE> 15H16 OR IE<0): SOUND 1,44 
TIFF END£O.5 THEN 2580 ELSE GOTO 170 

0 ad C=0 THEN ida IB, IA:PRINT CHR$CZS 


E 
Vi 


1: PEN 2+C1+3) MOD Z:PRI 


tom mn Ba 


CURCESI DS CACOS REKEC TO DECRNDSO! 899 S =) is 
=5+€ : SOUND 1, 200,6 

20 K=5GNCESKCTE+TORCRNDLO. 53) 

280 GOTO 170 
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O lagarto de Alice 


REFERÊNCIAS: 
Dificuldade de programação: difícil. 
Categoria de jogo: solitário. 
Dificuldade do jogo: bastante difícil. 


O JOGO: 

Inspira-se vagamente numa ideia de Lewis Carroll, em Alice no 
País das Maravilhas. Na história original, Alice cresce ou diminui, ao 
passo que no jogo, por razões de ocupação da memória, é um lagarto 
que muda de tamanho. 

No écran aparecem dois copos: um contém o líquido que faz cres- 
cer, o outro o líquido que faz diminuir (infelizmente não é sempre o 
mesmo copo). O jogador deverá indicar a quantidade de líquido que 
deseja beber e o lagarto mudará de tamanho em função dessa quanti- 
dade. O objectivo do jogo é conseguir devolvê-lo ao seu tamanho ini- 
cial. 


O PROGRAMA: 

O ciclo I (50-80) desenha os copos. 

A rotina 430 é chamada se a resposta à pergunta QUANTIDA- 
DE? não for suficientemente rápida. A linha 220 anula essa chamada. 

O ciclo I (230-250) volta a encher os copos com a quantidade indi- 
cada na linha 210. 

A variação de estatura do lagarto é definida pela linha 290, com 
controlo pelas linhas 300-310. 

O ciclo I (320-340) desenha o corpo do lagarto, as linhas 350 e 360 
desenham as patas, a linha 370 a cabeça; os dois ciclos separados 
I (380) e I (390) formam a boca e os dentes. 

A linha 410 imprimirá uma mensagem BRAVO! se conseguir en- 
contrar o tamanho correcto. 


PARA JOGAR: 

Faz-se trabalhar o programa com RUN. Os dois copos são dese- 
nhados, depois aparece a pergunta QUE LADO?, à qual se responde 
teclando E ou D; obtém-se a impressão da pergunta QUANTIDADE?; 
faz-se então entrar uma quantidade (de O a 200) e prime-se ENTER. 


1 Editado por Publicações Europa-América, na col. «Livros de Bolso», n.º162. 
(N. do E.) 
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O copo escolhido enche-se diante de si e, momentos depois, é 
apresentado o lagarto. Deve então premir-se uma tecla qualquer; se o 
lagarto não tiver o tamanho correcto não será impressa qualquer men- 
sagem e volta-se ao desenho dos copos. 


EXTENSÕES POSSÍVEIS: 

Dado que se trata de um jogo essencialmente gráfico, será interes- 
sante melhorar os desenhos e a cor, modificar o carácter aleatório da 
escolha dos copos, etc. 

Por que não reler Alice no País das Maravilhas? As ideias não fal- 
tam aí. 


10 REM O LAGARTO DE ALICE 

20 RANDOMIZECTIME) 

0 MODE O N=mz 

AQ PAPER 5 

so FOR I=1 TO 9 

Re a Vo I+H4 PRINT O" PILOCATE E, 1+4:F 
70 LOCATE 13, I+4: PRINT PLLOCATE ZOO, I+4 
PRINTO! O? 

20 NEXT 1 

na a Il=1 TO B:;LOCATE LISA PRINTO” "PINE 
100 FOR I=lã TO SOLOCATE LT4CFRINTO?O? 
NEXT I 

110 PAPER O:PEN SILOCATE 2, 15:FPRINT "ESQ 
UERDO”: PEN BILOCATE TA, IS PRINT “DIREITO 


120 FEN TILOCATE 1, IZLFRI "QUE. LADO?” 
RCA) As INKEY$: Aga ULPERSCAS IF ABCD A 
ND AgBarMEP THEN TO 
140 U=(]-]2HCA$="D'))E3Z C=3-BECAg="D”) 
150 PEN CILOCATE LE, IZUIFÊ Ag="D" THEN FR 
INT º"DIREITO” ELSE PRINT “ESQUERDO” 
NR NE ORI "QUANTIDADE?" PEN 
ao -m() (E ME "” 
170 AFTER 100,0 GOSUE 430 
150 Ag=INKEY$&CIF F=] THEN GOTO ZEO 
130 IF Am THEN GOTO 180 
200 IF AgeoCHRECTZOS THEN R$E=A$+ALFRINT 
As; "GOTO 180 
Io qa=ABEcVALCRE)) 
RE Z=REMAINCO) 
L30 POR I=1 TO SESGQRIG) 
240 MOVE U,ILRIE+TIDRAWR GESR-E,0O,C 
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REDES a I:SOUND 1,473: S0UND 1,426, SOUND 
SG 

ig =0O:/WHILE TEXEOO: TE=TE+): WEND 
H=1+2ECRNDEO. 5) 
NsN+HEINTOSQRCG) 
IF NºlZ THEN N=lZ 
IF N>EO0 THEN N=80 
FOR I=1 TO 10%&N 
MOVE I+r3a, 195: DRAWR O,10,12 
O NEXT I 
350 TAG; MOVE rap CHR$ECIESO, 
MOVER 1OEN-EA4, O: PRINT CHR$C1539; 
MOVE Fe, xeo: PRINT CHR$C 224): TAGOFF 
FOR I=0 TO V:MOVE O, Zlz+zki:DRAWR 3 


É FOR 1=1 TO 4:MOVE Z&I, 211: DRAWR O,-x 
NEXT 

400 AS=INKEV$CIF Ag="" THEN 400 

qo IF N=25 THEN LOCATE E, 23: PRINT "BRAV 
Ent RO 1, 47E: SOUND 1,:2:79: SOUND 1,319; 
END 

Aro CLS GOTO do 

420 LOCATE 2,23: PEN ZPRINT "DEMASIADO T 
EMPO, JOGO EU” 

AL Qu=INTORNDEZOO+ TOS, F=] 

450 RETURN 
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«O melhor romance jamais escrito 
acerca da II Guerra Mundial» 
Time 


& «NUS 
sMORIOS 


Retrato vivo dos horrores 
da guerra e dos seus 
efeitos nos homens que 
nela lutam. Um romance 
vivo, avassalador, que 
arrebata em inúmeros 
combates e desvenda o 
lado humano dos heróis Mens 
obscuros da campanha do Pacífico. 
Do mesmo autor de 

Noites Antigas e O Canto do Carrasco 

À VENDA NAS MELHORES LIVRARIAS E PAPELARIAS 


EUROPA-AMERICA «a memória no futuro 


Se te sentes só, num mundo de estranhos, 

e anseias por alguém que ainda não conheces... 

Se as nuvens onde voas, num céu azul de esperança, 
em cinzento se tornam e te sentes cair 

Se sentes, mesmo assim, que queres abrir as asas 

e recuperar o voo que, para ti, é tudo... 

Em A PONTE PARA A ETERNIDADE 


encontraras uma mensagem de amor 


IRICIBIANID) 
IBAXCIAL 


es Autor de 
«NÃO HÁ LONGE NEM DISTÂNCIA» 
e «HISTÓRIA DE-FERNÃO CAPELO GAIVOTA» 


um: 
mefisagem 
de amo 


ã EUROPA-AMERICA ..a memória no futuro 


BELEZA e ECONOMIA 


DOIS LIVROS QUE AJUDAM 
A TRANSFORMAR UMA CASA NUM al 


Decorativas, perfumantes, saborosas, 
cosméticas. Que sabe sobre elas? Neste 
livro de Jack Harvey encontra muita in- 
formação pormenorizada sobre a utiliza- 
ção das plantas cujas raízes, caules, fo- 
lhas, flores e sementes servem para dar 
mais encanto a um lar, ou para perfu- 
mar e embelezar e dar mais sabor às re- 
feições. 

Um livro que lhe dá «informação» e ensi- 
nará «como fazer». Como tultivar, secar 
e conservar ervas, como utilizá-las na 
decoração, na culinária, na preparação 
de perfumes e cosméticos. 


DE ALIMENTOS 


Pamela Dotter traz-nos um guia 
prático sobre os métodos caseiros 
de conservação de alimentos: con 
fecção de compotas, manteigas, 
queijos e sumos de frutas, conser 
vas de frutos e vegetais, frutas 
cristalizadas, molhos, temperos, 
congelação e secagem de alimen- 
tos. Tem igualmente conselhos 
acerca dos utensílios e ingredien- 
tes necessários. Pormenorizadas 
Instruções tornam este livro 

ideal para principiantes. E nao só. 


Muitas dezenas de ilustrações a preto e a cores 


À VENDA NAS LIVRARIAS E BONS 
ESTABELECIMENTOS DIETÉTICOS 


[E EUROPA-AMERICA .» memória no futuro 


O objectivo deste livro é ensinar distraindo. 

Estes 102 programas de jogos guiá-lo-ão progressivamen- 
te na exploração do BASIC Amstrad. 

Assimilará novas instruções nível a nível, até conseguir o 
domínio do seu CPC 464. 

Todos os programas contidos neste livro funcionam igual- 
mente no CPC 664 e no CPC 6128. 

O livro está dividido em cinco níveis e cada nível começa 
com uma apresentação pedagógica do conjunto de instruções 
utilizadas. 

Todos os jogos são descritos e os programas são analisa- 
dos linha por linha, a fim de facilitar a sua modificação. 

Torne-se mestre do seu Amstrad! 
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